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clear screen 
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CURSOR DOWN 
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Beste leden, 


Het thema van dit nummer is. duidelijk de VIDEO SCREEN RAM van onze DAI. 
We waren ook al maanden aan het zwoegen om MODE 7 & 8 te realiseren, 
echter zonder afgewerkt resultaat. Komt dan onze vriend LOOIJE te уоог- 
schijn met een volledige en diepgaande studie over de VIDEO RAM ... 
Mooi is dat ! Het verhaal " DAI video screen ram" is de studie, met 
grondige uitleg over de gebruikte pointers."Screen driver demo" is 
een programma dat U toelaat eindeloze combinaties van tekst & grafische 
modes te сгеегеп.Ор p. 261 vindt U de objectcode-dumps voor MODE 7&8. 
Indien. het nog niet duidelijk is hoe U dergelijke programmatuur 
aan de praat krijgt, lees dan ook eens de beschouwingen op p.266. 
Jan Boerrigter maakt de informatie over DAI-video screen rond op 
p.255.0p p. 282 kan U ook lezen dat het FIRMWARE-boek зрее мег- 
kri jgbaar zal zi jn. 

6 november houden we onze volgende bijeenkomst in de SE Gg te 
Aarschot. Deze keer hebben we ook andere verenigingen en handelaars 
aangesproken .Mogelijk wordt deze MIKROBEL-dag een goede promotie voor 
het computergebeuren in Belgie en omgeving.U kan de bi jgevoegde affiche 
rustig laten zitten, ophangen in school of kantoor kan natuurlijk ook ! 
DAI ( sorry : INDATA ) , heeft beloofd op 6 november een aantal 
interessante uitbreidingen voor DAI te tonen, dus : kijk uit! 
Alhoewel de programma’s en artikels rijkelijk op de redactie binnen- 
stromen , zijn uw bijdragen nog steeds erg welkom. 























dank aan alle auteurs,tot 6 november... 







Dear members, 






In this issue you will find a lot of information about DAI VIDEO SCREEN 
RAM. Thanks to N.LOOIJE,who offers us MODE 758 : 512 x 244 resolution ! 
Our next meeting is in Aarschot (stadsfeestzaal-city hall) оп 6 nov. 
You can find all participants on the enclosed poster. 
INDATA will show a lot of new extensions for DAlpc ... 

We receive a lot of articles and programs,please continue. 










see you оп 6 nov 









mikrobel 
6 nov 82 
Aarschot 





Wilfried Hermans 
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Remark 
Bladwi jzer 
Geographie de la Belgique 


Demo IAND-IOR-MOD-IXOüR-SHL -SHR 


Ellen 
Screen Driver Demo 
в 


"+ Polygons, Dot,Filling 
DAI video screen ram 


Screen constants graphic modes 
Screen memory management 

" 
Kalenderalgoritmen 


" 512 x 244 (MODE 7 $8). 
Fascination 
Super Noise Gener ator 


How to extend DAI-BASIC 


Audio Cassette Marker 
" + Lines 
Efficient Circle-drawing 


Dessin-Drawing-16 colors-oiseau 
Broeten uit Belgie 
Hardcopy MODE 0 


TV-tennis 


INFO-INFÜ- INFO 
DAIpc firmware manual 
Bootstrap Loader V2 


" + FGT-check 
Conversion APPLE-ATARI-DAI 


" 4 New extensions for DAI * tip 


Subroutine cassettebesturing 





Redactiepraat je 


d. Moens 


W.Hermans 


E. Smet 


N.P.Looi je 


F.Drui jff 
N.P.Looi je 


J.Boerrigter 
J.Boerrigter 


P.Lelie 
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program identification 


title 
author 


o Geographie de la Belgique 
о 
J.Moens 


Learn the cities of Belgium 


purpose 5 lesen the cities of Belgium — — o 


First find Belgium !!! 


comment е а 





D DJ DS GM rs 


REM GEOGRAPHIE DE LA BELGIQUE - 5 NIVEAUX 


REM ———— 


REM COPYRIGHT JACQUES MOENS - FEVRIER 1982 


REM ------------------------------------ 


PRINT CHR$(12):POKE #75,32:CLEAR 6000: ENVELOPE О 15 
DIM A(100.0) ,U! (126.0), V! (126.0) , V1$ (100.0) , V2$(100.0),X! (100.0) , Y! (1 


N-0: P=0: AS=CHR$ (127) : C$-CHR$ (129) +CHR$ (130) 
COLORT 14 00 0 
PRINT :PRINT :PRINT "GEOGRAPHIE DE LA BELGIGUE":PRINT "——— 


PRINT :INPUT "DEGRE DE DIFFICULTE a AS) "3D! 
IF D!>0.0 AND D'«X5.0 THEN 18 
GOTO 15 
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18 PRINT CHR$(12):FOR I!=1.0 ТО 126.0:READ U! (СЕ!) „Мм! CI!) sCURSOR U! CI!) ,У 
(I! ):PRINT АФЕМЕХТ I! 

19 FOR І!-1.0 ТО 20.08D!:READ У18(11) ,„У24(11) X! CI D), Y! (1!) : МЕХТ 

20 =N+1: IF N=203D!+1 THEN 9990 

22 CH=INT (RND (D! $20. 0) +1.0) 

24 IF A(CH)=1.0 THEN 22 

26 A(CH)=1 А 

28 IF CH/2.0=INT(CH/2.0) THEN V!=49.0:G0TO 50 

29 v!250.0 

50 V1$-V1$ (CH) : V2$-U2$ (СН) 


51 CURSOR 0,7:PRINT " ":CURSOR 0,7:PRINT "1 “$V 
1$ 

32 CURSOR O,5:PRINT " "sCURSOR 0,5:PRINT "2 "3V 
2% | 


53 CURSOR 0,3:PRINT "VOTRE REPONSE (1 OU 2) 2"; 

&0  X!=X! (CH) :Y!zY! (CH) 

61 CURSOR X',Y':PRINT " ":WaIT TIME 15 

62 CURSOR X',Y':PRINT C$:WAIT TIME 15 

63 G!=GETC 

71 ` CURSOR 26,3 

72 IF V!=49.0 THEN F!-50.0:60T0 74 

73 | F!'-49.0 

74 ТЕ G!=V! THEN PRINT CHR$(G!):GOSUB 1100:60Т0 20 

75 IF G'-F! THEN PRINT CHR$(G!):GOSUB 1200:60Т0 20 

75 6010 ы 

1100 CURSOR O,1:PRINT "BRAVO":P=P+1 

1104 CURSOR 9,1:PRINT Ру" POINT";:IF P>1.0 THEN PRINT "S"; 

1106 PRINT " SUR";N 

1110 SOUND О O 15 O FREO(400.0): WAIT TIME 80:SDUND OFF 

1115 CURSOR X',Y':PRINT " " 

1120 RETURN 

1200 CURSOR 0,1:PRINT "FAUX " 

1204 CURSOR 9,1:PRINT P;" POINT";:IF P>1.0 THEN PRINT "S"; 

1206 PRINT " SUR";N i 

1210 SOUND О О 15 0 FREQ(40.0):WAIT TIME 80: SOUND OFF 

1215 CURSOR X!,Y!:PRINT " " 

1220 RETURN 

9020 DATA 5, 16,5, 17,5, 18,4, 18,7, 19,8, 19,9, 19, 10, 20, 11, 20, 12, 20, 13,21, 14,21 
315, 21, 16, 20, 17, 20, 18, 20, 19, 21, 20, 20, 21, 20, 22, 20 

9040 DATA 23, 20,24, 20, 25, 20, 26, 21,27, 21, 28, 21, 29, 21, 30, 22, 31, 25,32, 22, 33,2 
2,34, 23, 35, 22, 36, 22, 37, 25, 38, 23, 39, 22, 39, 21,40, 21,41, 21 

9060 DATA 42, 20,43, 20, 44, 20, 45, 20, 46, 20,47, 20, 48, 19, 48, 18, 47, 17, 46, 16, 44, 1 
5,47, 15, 48, 15,49, 15,50, 15,51, 15,52, 14,53, 14,54, 13,54, 12 

9080 DATA 55, 12,56, 11,56, 10,55, 9,54, 9, 53,9, 52,8,51,8,50, 7,49, 6,48,5,49,4,5 
0,3, 50, 2,49, 1,48, 1,47, 1,46, 1,45, 1, 44,1 

9100 DATA 43,1, 42,2, 41,2, 40, 2,39, 3,38, 3, 37,35 36, 4, 36,5, 36,6, 35,7,35,7,34,7 
33,5, 32,5, 31,5, 30,5, 27,5, 28,5, 27,5 

9120 DATA 26, 4,27, 7, 26,8, 26,9, 25, 7,24, 10, 23, 10, 22, 10, 21, 10, 20, 10, 19, 11, 18, 
11,17,11, 16, 11,15, 12,14, 12,14, 13, 14, 14, 13, 14, 12, 14 

9140 DATA 11,14,10,14,9, 14,8, 14, 7, 15,6, 15 

9200 DATA "LOUVAIN (LEUVEN)", "BRUXELLES (BRUSSEL)",30,15, "ANVERS (ANTWERPE 
N)","BAND (GENT)",29, 20 

9210 DATA "ANVERS (ANTWERPEN)","GAND (GENT) ", 21, 17, "BRUGES (BRUGGE)", "OSTE 
NDE (OOSTENDE)", 14,19 

9220 DATA "TONGRES (TONGEREN)", "HASSELT", 42, 16, "MONS", "TOURNAI", 25, 11 

9230 DATA "HUY", "NAMUR", 36, 11, "LIEGE", "VERVIERS", 45, 13 

9240 DATA "VIRTON", "ARLON",48,3, "LOUVAIN (LEUVEN) ", "BRUXELLES (BRUSSEL) " , 3 
4,15 

9250 DATA "BRUGES (BRUBGE)","OSTENDE (DOSTENDE) ", 10, 19, "TONGRES (TONGEREN) 
^, "HASSELT", 44, 14 
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9260 DATA "MONS", "TOURNAI", 17, 12, "HUY", "NAMUR", 42, 12 

9270 DATA "LIEGE", "VERVIERS", 49, 12, "VIRTON", "ARLON", 45, 2 

9280 DATA "NAMUR", "CHARLEROI", 31, 11, "MARCHE", "ВАСТОБМЕ" , 44,9 

9290 DATA "BASTOGNE", "NEUFCHATEAU" , 45, 4, "BASTOGNE" , "MARCHE", 47,7 

9300 DATA "FURNES (VEURNE)","DIXMUDE (DIKSMUIDE)",9,17, "FURNES (VEURNE) ", " 
DIXMUDE (DIKSMUIDE) ",7, 17 

9310 DATA "YPRES (IEPER)","ROULERS (RÜESELAERE) ", 12, 15, "YPRES (IEPER) ", "RO 
ULERS (ROESELAERE) ",11,15 

9320 DATA "EEKLO","ST-NICOLAS (ST-NIKLAAS)",26,19,"TIELT", "BRUGES (BRUGGE) 
"18,16 

9330 DATA "ALOST (AALST)","TERMONDE (DENDERMONDE)",25,17,"EEKLO", "BAND (GE 
NT) ",19,19 

9340 DATA "TERMONDE (DENDERMONDE)","ALOST (AALST)",26,14,"COURTRAI (KORTRI 
JK)","AUDENARDE (OUDENAARDE) ", 14, 15 

9350 DATA "COURTRAI (KORTRIJK)","AUDENARDE (DUDENAARDE) ", 18, 15, "АТН", "5016 
NIES",23, 13 

9360 DATA "ATH", "SOIGNIES",27, 12, "THUIN", "CHARLEROI" , 29, 9 

9370 DATA "GENK", "MAASEIK", 46, 18, "DINANT", "NAMUR" , 36, 9 

9380 DATA "LIEGE", "WAREMME", 42, 13, "МА INES (MECHELEN) ", "NILLEBROECK" , 31,17 
9390 DATA "CHIMAY", "PHILIPPEVILLE", 32,8, "WAVRE", "NIVELLES", 33, 14 

9400 DATA "WAVRE", "NIVELLES", 30, 12, "GENK", "МАДОЕТК" „44, 17 

9410 DATA “OSTENDE (OOSTENDE)","NIEUPORT (NIEUWPOORT) ",8, 18, "EEKLO", "BRUGE 
S (BRUGBE)", 19,19 

9420 DATA "BRUGES (BRUGGE)","ZEEBRUGBE", 13,20, "COURTRAI (KORTRIJK)", "MOUSC 
RON (MOESKROEN) ",14,15 

9430 DATA "COURTRAI (KORTRIJK) ", "MOUSCRON (MOESKROEN) ", 15, 14, "NINOVE", "BRA 
MMONT“, 26, 15 

9440 DATA "MARCHE", "ST-HUBERT", 43, 6, "EUPEN", "VERVIERS", 51, 13 

9450 DATA "NINOVE" , "GRAMMONT", 22, 14, "CHIMAY", "PHIL IPPEVILLE", 29, 4 

9450 DATA "MALINES (MECHELEN) ", "WILLEBROECK" , 29, 17, "TURNHOUT" ,” TORHOUT" ‚57 
„20 - 

9470 DATA "TURNHOUT", "TORHOUT", 12,17, "TIRLEMONT (TIENEN) ","TONGRES (TONGER 
ЕМ)", 37,14 

9480 DATA "ARLON", "BOUILLON", 40, 3, “CINEY", "ROCHEFORT", 40,9 

9490 DATA "LAROCHE" , "ROCHEFORT", 42, 8, "LAROCHE", "SAINT-HUBERT" , 45,8 

9500 DATA “BASTOGNE", "MARTELANGE" , 47, 4, "STAVELOT", "MALMEDY" ,50, 10 

9510 DATA "STAVELOT", "MALMEDY",52, 11, "NINOVE", "ALDST (AALST)", 24,15 

9520 DATA "HUY","ANDENNE",40,11, "LOKEREN", "ST-NICOLAS (ST-NIKLAAS) ",24, 18 

9530 DATA "TIRLEMONT (TIENEN) ", "ST-TROND (ST-TRUIDEN)",40,14, "TIRLEMONT (T 
IENEN)","ST-TRUND (ST-TRUIDEN)",37,14 

9540 DATA "COUVIN", "CHIMAY", 29, 5, "COUVIN", "CHIMAY", 31,6 

9550 DATA "ATH", "LESSINES", 25, 14, "DIEST", "AARSCHOT" , 38, 17 

9560 DATA "DIEST", "AARSCHOT", 36, 16, "ENGHIEN", "SOIGNIES",27, 13. 

9570 DATA "TOURNAI", "PERUWELZ",21,11, "SAINT-VITH", "MALMEDY", 52,9 

9580 DATA "THUIN","BEAUMONT",28,8, "LIERRE (LIER)","MALINES (MECHELEN) ",32, 
19 

9590 DATA "LAROCHE" , "HOUFFALIZE", 48,8, "VIELSALM", "SAINT-VITH",50,9 

9600 DATA "YPRES (IEPER) ", "POPERINGE",8, 15, "DURBUY", "MARCHE", 44, 10 

9510 DATA "GENK", "OVERPELT", 44, 19, "BEAURAING" , "GEDINNE" , 38, 7 

9620 DATA "BEAURAING", "GEDINNE", 38, 5, "DEINZE", "AUDENARDE (DUDENAARDE) ", 18, 


16 

9630 DATA "TURNHOUT","GEEL",38, 19, "RENAIX (RONSE)", "MOUSCRON (MOESKROEN) ", 
18,14 

9540 DATA "NIVELLES", "BRAINE-LE-COMTE" , 28, 12, "BOOM", "ANVERS (ANTWERPEN) ", 2 
9,18 


9650 DATA "CHARLEROI", "BOSSELIES", 31, 12, "SPA", "STAVELOT", 49, 11 

9560 DATA "MONS", "ВІМСНЕ", 27, 10, "VISE", "LIEGE", 46, 14 

9670 DATA "BOUILLON", "FLORENVILLE" , 43, 2, "PERWEZ" , "PERUMELZ" ,35, 13 

9680 DATA "MAUBEUGE", "VALENCIENNES", 18, 10, "MAUBEUBE" , "VALENCIENNES", 23, 7 
9690 DATA "LILLE", "ROUBAIX", 12,13, "LILLE", "ROUBAIX", 11,12 

9990 CURSOR 0,1:PRINT "TERMINE":POKE #75,95:END 

9995 REM PROGRAMME ECRIT PAR JACQUES MOENS 


9996 REM ................... „CLOS FONTAINE DES DUCS,6 
9997 REM esses ege e mee eege gee ee 1310 LA HULPE 
9998 КЕМ ..... “..............1. O2/657.95.60 


9999 REM -------—--—-- 
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program identification 


title 9 _DEMO-program IAND,IOR,MOD,IXOR,SHL,SHR 


author W.Hermans 


purpose 2 -demonstrates BIT-manipulations in DAI-BASIC __ 
comment MOD is not a bit-manipulation 





10 REM DEMO-PROGRAMMA VOOR IAND, IOR, MOD, IXOR, ОНЕ , SHR 
20 REM ———— Y 
100 CLEAR 4000:MODE O:PRINT CHR$(12) 

105 POKE #74,0:REM CURSOR IN ALTERNATE COLOURS 

110 COLORT 8 0 5 15 


120 CURSOR 0,23:PRINT "—— —INTEBER BIT OPERATIO 
NS—————— iiie и 
200 REM INPUT OPERATION 
210 REM --------------- 


215 POKE #75,0:REM INVISIBLE CURSOR 

220 RESTORE:FOR X-1 TO &:READ A$: CURSOR X$8,20:PRINT A$:CU 

RSOR X$8,18:PRINT X:NEXT 

225 G=GETC: IF 6-20 THEN 255:REM CLEAR BUFFER 

230 CURSOR 5,15:PRINT "OPERATION 1...6" 

240 G=GETC:IF G-O THEN 240 

250 IF 631 OR G>#36 THEN 225:REM FALSE ENTRY 

255 OP=6-#30 

260 FOR X=0P48-2 TO OP$8+5:CURSOR X,20:POKE #76, #FF:CURSOR 
Х,21:РОКЕ #76, REES NEXT: REM COLORED BACKGROUND 

300 REM INPUT OPERATORS 


310 REM --------------- 
315 POKE #75,255:REM VISIBLE CURSOR 
320 CURSOR 5,13: INPUT "OPERATOR 1 (4100000) “501 


321 IF 01>100000 THEN 320 

322 01$=STR$(01):01$=LEFT$(01$,LEN(01$) -2) 

324 IF LEN(O1$)<12 THEN 01%=" "+01$:60T0 324 

330 CURSOR 5,11:INPUT "OPERATOR 2 (<100000) "302 
331 IF 02>100000 THEN 330 | 

332  U2$-STR$(U2) :02$=LEFT$ (02$, LEN(02$) -2) 

334 IF LEN(02$)<12 THEN 02$=" "402$:GOTO 334 

336 POKE 475,0 

340 FOR Y-15 TO 1 STEP -1:CURSOR O,Y:PRINT SPC(59):NEXT 
400 REM OPERATION 

410 REM -------- 

420 ON ОР GOSUB 510, S20, 530, 540, 550, 540 

422 R$=STR$(R) : R$=LEFTS (R$, LEN (R$) -2) 

424 IF LEN(R$)<12 THEN R$=" "+R$:GOTO 424 

430 RESTORE:FOR X-1 TO OP:READ OP$: NEXT: КЕМ GET STRING 
440 CURSOR 4,12:PRINT Ots" ";0P$;" "3024" "3" = "sR 
445 G=01:GOSUB 2000:61$=BR$:CURSOR 5,10:PRINT BR$;" ";01$ 
446  8-02:60SUB 2000:62$=BR$: CURSOR 5,8:PRINT BR$;" ";02$ 
447 FOR X-5 TO 39:CURSOR X,7:PRINT CHR$ (11) ;: NEXT 

448  8-R:GÜ0SUB 2000:63%=BR$:CURSOR 5,6:PRINT BR$;" ";R$ 
450 POKE #BFEE-#86%20, #CC: CURSOR 5,2:PRINT "TYPE SPACE FOR 
NEXT OPERATION" 

450 -GETC:IF 6<>32 THEN 460 

470 GOTO 100 
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510 REM ТАМО 
515 В=01 IAND 02: ВЕТИВМ 

520 REM IOR 

525  R-01 IOR 02:RETURN 

530 REM MOD 

535 R=01 MOD O2:RETURN 

540 REM IXOR 

545 R=01 IXOR 02:RETURN 

550 REM SHL 

555  R-01 SHL 02:RETURN 

560 REM SHR 

565  R-01 SHR 02:RETURN 

1000 DATA IAND, ТОК, MOD, IXOR, SHL, SHR 
2000 REM DEC-BIN CONVERSION 

2010 BR$="":M=VARPTR (6) 

2020. FOR A=M TO M+3 

2030 P=PEEK(A) 

2040 FOR X=7 ТО O STEP -1 

2050 B=P ТАМО (2^(X41)) 

2050 C=B SHR X:8T$-"o":1F C=1 THEN ST$="1" 
2070 BRS=BR$+ST$:NEXT 

2080 BR$=BR$+" " 

2090 NEXT 

2100 RETURN 


63456 MOD 25 = 22 
00000000 оооооооо 11110111 11100000 
00000000 00000000 00000000 00010111 


00000000 00000000 00000000 00010110 


IXUR 


74125 IXOR 3644 = 77731 


00000000 00000001 00100001 10001011 


00000000 00000000 00001110 00111100 


л 


00000000 оооооооі 00101111 10110111 








ТАКО 


55555 ТАМО 35451 


00000000 оооооооо 10001010 00011011 


00000000 оооооооо 10001010 01111011 


00000000 00000000 10001010 00011011 


25455 IOR 54653 = 57341 
00000000 oooooooo 01011011 10001001 
00000000 00000000 11010101 0111110! 


00000000 o0000000 11011111 11111101 


3459 SHL 4 = 55280 
00000000 00000000 00001101 01111111 


00000000 оооооосо 00000000 oooooloo 


3243 SHR 8 
00000000 оооооооо 00001100 10101011 
00000000 00000000 00000000 00001000 


00000000 00000000 00000000 00001100 
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program identification 


title о ELLEN 
author 5 By MEL 


nn 
Position your own "1" and prevent the computer 
4 d WT t - - . 
purpose ° from moving its "L". use сигвог-Кеув & space bar 











comment 9 program does POKE in MEMORY instead of using arrays 








5 MODE O:PRINT CHR$(12);:COLORT 5 15 5 5: РОКЕ #BA2D,95:CURSOR 0,12 
SPRINT " $$ ELLEN $$" 

8 CURSOR 45,4:PRINT " 3 E. SMET 4" 

9 IF БЕТГ< >52.0 THEN 9 

20 MODE O:PRINT CHR$(12):CLEAR 5000 

25 POKE #74,0:POKE #75, #FF:COLORT 8 0 8 0:GOSUB 5000 

30 FOR 1=15000 TO 15220: РОКЕ I,O:NEXT I 

50 F2=0:RESTORE:FOR X-1 ТО SO:READ Т: РОКЕ ЖЗА9В+Х, Г: МЕХТ X 

60 MODE 4A:COLORG 8 14 3 0:60508 30000 

61 PRINT CHR$(12);"Moeili jkheidsgraad : 1 = Eenvoudig ": CURSOR 21,2 
sPRINT "2 = Moeili jk" 

62 FOR X=20 TO 100 STEP 20:DRAW X,20 X,100 O:DRAW 20,X 100,X О: МЕХТ 
X 

63 GOSUB 5000 | 

68 H=GETC-48: IF HI ОК H>2 THEN 68 

69 POKE #3AF9,H:PRINT CHR$(12);"Wenst U te starten (J/N) зи s GÜSUB | 

50000 ; 

110 Н-БЕТС:ІҒ H<>74 AND Н<>78 THEN 110 

120 PRINT CHR$(12): IF H=78.0 THEN 500 

240 PRINT CHR$(12);"Ingave L-vorm (cursor-plaats,spatie-ingave)" 

241 72=0:PRINT "Positie “; : РОК I-1 TO 4 f 

242 CURSOR 10,2:PRINT I:IF I=1.0 THEN GOSUB 7000:60Т0 245 

244 GOSUB 7002 

245 РОКЕ 1505041,7 

247 FILL Х1-6,У1-6 X1+10,Y1+10 8:FILL X1-5.5,Y1-5.5 Х1+9.5,У1+9.5 14 

248 FOR T-X1-5.5 TO X149.5 STEP 5:DRAW T,Y1-5.5 T,Y149.5 8: МЕХТ T 
249 FOR Т-у1-5.5 ТО у1+9.5 STEP S:DRAW Х1-5.5,Т Х1+9.5,Т 8: МЕХТ T 
250 NEXT I:X3-0 

255 FOR Xi=1 TO 4:FOR X2=1.0 TO 4.0:IF PEEK GESA9E X1) =PEEK (#5АВ6+Х2) 
THEN X3=X3+1 

256 NEXT X2:NEXT X1:IF X3-4 THEN 1220 

258 FOR I=#3AFD ТО #5860: РОКЕ I,O:NEXT I 

260 FOR X=1.0 TO 4.0:FOR Y=1.0 TO 4.0: IF PEEK (#3AB6+Y) >PEEK (#5ABS+Y) 
THEN 280 

270 Z=PEEK (#3ABS+Y):POKE #3AB4+Y, PEEK (#3AB5+Y) :РОКЕ #ЗАВУ+У, 7 

280 NEXT Y 

290 NEXT X 

300 FOR X-1.0 TO 4.0:POKE #3ABE+X, PEEK (#3AB4+X) : NEXT X2N1=4.0:F1=0.0 
:GOSUB 1800: IF Mi<>4.0 THEN 1220 

370 FOR X=1.0 ТО 4.0:POKE #ЗААБ+РЕЕК (H3A9D+X) „О: NEXT X 

380 FOR X=1.0 TO 4.0: РОКЕ 43AA64PEEK (#ЗАҒС+Х) , 1: РОКЕ #3A9E+X, PEEK (#5 
AFC+X) : МЕХТ Х: РОКЕ #3AA6+PEEK (#5499) , 0: POKE #3AAS+PEEK (#3A7A) „0 

405 POKE #3A99,0:POKE #3A9A,0:G0SUB 5000: 7251: PRINT CHR$ (12) ;"Uw inp 
ut voor de blokjes "; 
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410 FOR 5451 ТО 2 

412 GOSUB 7000 

414 IF PEEK(#3AA6+Z)<>0.0 THEN 412 

415 IF 84-1.0 THEN POKE #5499, 2: 6050В 5000: GOTO 440 

420 IF Z<>PEEK(#3A99) THEN POKE #3A9A,Z:GOSUB 5000: БОТО 440 

430 GOTO 412 

440 NEXT S4 

450 POKE #SAR6+PEEK GESA99) „3: РОКЕ HIAAGHPEEK (#349۸) „5 

500 PRINT CHR$(12);"Mi jn beurt":FOR Х=1.0 ТО 4.0:PDKE #5AA6+PEEK GESA 

9а+Х) „О: МЕХТ X 

550 GOSUB 1420:F1=1.0:N1=Z:GOSUB 1800:IF M1=0.0 THEN 1300 

560 PRINT "Ik heb";LEFT${(STR$(M1/4.0) , 2); 

570 IF M1>4 THEN PRINT " mogelijkheden ":GOTO 600 

580 PRINT " mogelijkheid " 

500 X1=0:GOSUB 1370 

601 IF PEEK(#3AF9)=1 THEN 650 

604 FOR E-0.0 TO М1-4.0 STEP 4.0 

608 IF X1«4 THEN 217 

610 GOSUB 6000 

617 = X1=0:FOR F=1.0 ТО 4.0:FOR G=1.0 TO 4.0 

618 IF PEEK (#3AFC+E+F) -РЕЕК (#3A9A+G) THEN Х15Х1+1 

620 IF PEEK GESAFC+E+F) < PEEK (#ЗАА2+Б) THEN 640 

630 POKE #ЗАВЕ+((Е/4.0)+1.0) , PEEK (#ЗАВЕ+ ((Е/4.0)+1.0))+1.0 

:640 NEXT 6: МЕХТ F:NEXT Е 

650 GOSUB 1500: Y=(Z-1.0)44.0:X1=0 

700 FOR Х-1.0 TO 4.0:POKE #3A9A+X, PEEK (#S5AFC+X+Y) : РОКЕ #3AA6+PEEK (#3 

AIA+X) „2: МЕХТ X 

750 POKE #3AAGHPEEK (#5А99) „О: РОКЕ #3AAGHPEEK (#3A9A) , Oz РОКЕ #3A99, 0:P 

OKE #3A9A,0:GOSUB 5000: РАТМТ CHR$ (12) ; "Ми zoek ik de blokjes nog "; 

760 IF РЕЕК(#ЗАЕФ) -1 THEN 1020 

ВОО FOR I=1.0 TO 4.0:FOR Ј=1.0 ТО 4.0: IF PEEK (#3A9E+I1 ) =PEEK (#3AA2+J) 
THEN 870 

810 NEXT 2: МЕХТ I:GOTO 1020 

870 FOR X=1.0 ТО 4.0: IF PEEK (#3AAS+PEEK (#ЗАА2+ (Х))) 20. THEN 920 
880 POKE #3A99,PEEK (#ЗАА2+Х) : РОКЕ #3AAG+PEEK GESA99) „5: GOTO 950 
920 NEXT X:GOTO 1020 

950 FOR Х-1.0 TO 4.0: IF PEEK (#35AA6+PEEK (#3AA2+X))>0.0 THEN 1000 
970 POKE #3A9A, PEEK (#ЗАА2+Х) :РОКЕ #35AAG+PEEK (#5A9A) „5: БОТО 1080 
1000 NEXT X:GOTO 1050 

1020 GOSUB 1610:РОКЕ #3899, PEEK (#3AFB) : POKE #35AA6+PEEK (#3499) , 5 
1050 GOSUB 1410: РОКЕ #3A9A, PEEK GESAFB) : POKE #5AAG+PEEK (#3A9A) , 5 
1080 FOR X-1.0 ТО 4.0:POKE #3AA4+PEEK (#3A9E+X), 1: МЕХТ X:GOSUB 5000 
1090 PRINT :PRINT "En ik controleer de posities " 

1100 FOR X-1.0 ТО 4.0:РОКЕ #SAAGHPEEK GESA9E*X) „Os NEXT. Х: БОБИВ 1420:F1 

-2.0:N1-2:G05UB 1900: IF M1=0.0 THEN 1280 

1180 FOR X-1.0 ТО 4.0:POKE 43AA6*PEEK (#3A9E+X),1:NEXT X:GOTO 240 
1220 PRINT CHR$(12);"Incorrecte ingave ";:GOSUB 5000:GOTO 240 
1250 PRINT CHR$(12);" Incorrecte ingave "; : Б050В 5000:GOTO 405 
1280 PRINT CHR$(12)3"Ik win ":GOTO 1310 

1300 PRINT CHR$(12) "U wint " 

1310 PRINT “Voor nog een spel druk spatie";:GOSUB 50000 

1320 H=GETC:IF H-0.0 THEN 1320 

1330 IF H-32.0 THEN 50 

1340 MODE O:PRINT CHR$(12):COLORT 8 O 15 O:END 

1370 FOR X=1.0 TO 16.0:POKE 43ABE*X,O:NEXT X:RETURN 

1420 Z=0.0:FOR X-1.0 ТО 16.0:IF PEEK (#3AA6+X)>0 THEN 1440 

1450 Z=7+1.0:POKE #3ABE+Z, X 

1440 NEXT X:RETURN 

1500 Y=0.0:Z=1.0:FOR X-1.0 TO M1/4.0: ТЕ PEEK (#3ABE+X)<Y THEN 1580 
1520 IF PEEK (#3ABE+X)>Y THEN 1540 

1540 IF RND(1.0)>0.5 THEN 1580 

1550 Y=PEEK (#3ABE+X) : Z=X 

1580 NEXT X:RETURN 
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1610 FOR X=1.0 ТО 4.0: РОКЕ #35AA6+PEEK (#3A9E+X) ,0: NEXT X:GOSUB 1420:Ғ1 
=2. O:N1=Z: 6OSUB 1800:60508 1370 

1700 FOR X-1.0 ТО М1:РОКЕ ЖЗАВЕ+РЕЕК GESAFC*X) , (PEEK (#3ABE+PEEK (#SAFC+ 
Х) ))+1.0:МЕХТ X 

1750 FOR X-1.0 ТО 4.0:РОКЕ #ЗАВЕ+РЕЕК (#3A9E+X) , 0: NEXT. Х:М1<64. 0: GOSUB 


1500: РОКЕ #ЗАЕВ, 2: RETURN 
1800 M1=0.0:J=4.0:K=1.0:605UB 1880:J=1.0:K=4.0:605UB 1880: RETURN 
1880 P=0 


1890 P=P+1.0:POKE #3ABB, PEEK (#3ABE+P) : X=P 

1920 XzX*1.0:IF X2N1 THEN 2050 

1940 IF РЕЕК(#ЗАВЕ+Х) -PEEK (#3ABB)<>d THEN 1920 

1950 POKE #3ABC, PEEK (#3ABE+X) 

1960 X-X*1.0: IF X>N1 THEN 2050 

1980 ТЕ PEEK (#3ABE+X) -РЕЕК(ЖЗАВС) <>) THEN 1960 

1990 POKE #3ABD, PEEK (#3ABE+X) 

2000 FOR E=1.0 TO Ni: IF ABS (PEEK (#3ABE+E) -PEEK (#ЗАВВ) ) =К OR ABS (PEEK ( 
#3ABE+E) -PEEK GESABD) ) =К THEN 2060 

2030 NEXT E:GOTO 1890 

2050 IF P<N1-2.0 THEN 1890 

2053 RETURN 

2060 POKE #3ABE,PEEK(H#SABE+E):FOR F=1.0 ТО 4.0: IF (PEEK GESABA*F))/4.0 
<>INT ( (PEEK (#ЗАВА+Р) ) /4.0) THEN 2130 

2090 FOR G=1.0 TO 4.0: IF PEEK (#3ABA+G6) -PEEK (#ЗАВА+Р ) +1.0 THEN 2050 
2120 NEXT G 

2130 NEXT F 

2140 FOR Y-1.0 ТО 4.0:IF F1-1.0 THEN 2190 

2160 IF PEEK GESABA*Y) <>РЕЕК(ЖЗАФЕҒҮ) THEN 2210 

2170 NEXT Y:60T0 2030 

2190 IF РЕЕК(ЖЗАВА+У) <>РЕЕК (#3A9A+Y) THEN 2210 

2200 GOTO 2170 

2210 FOR Yz1.0 TO 4.0:POKE #3AFC+M1+Y, PEEK (ЖЗАВА+У) : МЕХТ Y:M1=M1+4.0: 
БОТО 2050 

3000 PRINT CHR$(12);" BBB E L L E N BBB":PRINT " ВВВВВВВВВВВВВВВВВВ": 
PRINT :PRINT 

3010 PRINT "Strategie en denkvermogen. Dit zijn de factoren waarmee | 
3020 PRINT "in dit spel de winstvoortzetting gevonden wordt." 

3030 PRINT "Beide spelers beschikken over een L-vormige figuur. Voor 


3040 PRINT "de comp.is deze rood, voor U geel. Op het 4x4 bord staan 


3050 PRINT "buiten deze twee figuren, nog twee blokjes (zwart) welke 
3060 PRINT "de bewegingsvri jheid belemmeren." 
3070 PRINT "De uitdaging van dit spel bestaat erin Uw AL ü en beide 


3080 PRINT "blokjes zodanig te plaatsen dat de tegenpartij geen moge- 

3090 PRINT "lijkheid heeft zijn stukken te plaatsen." 

3100 PRINT "Het is hiermee ook duidelijk dat Uw stukken die van de " 

3110 PRINT “tegenpartij, nog де geplaatste blokjes mogen overlappen." 

3120 PRINT "In het spel kiest U positie dmv de cursor toetsen om deze 

3130 PRINT "in te geven met de spatie toets." 

3134 PRINT "Een kleine tip: Bescherm het centrum .“ 

3138 PRINT :PRINT "Veel succes." 

3140 GOSUB 30000:PRINT :PRINT "Druk spatie om te beginnen." 

3150 H=GETC:IF Н<>52.0 THEN 3150 

3160 RETURN 

5000 FOR X=] TO 16: РОКЕ #3AALEX,O: NEXT Х:РОКЕ ЯЗАА6+РЕЕК (#3A99) , 5: РОК 

E #3AA6+PEEK (#3A9A) , 3 

5010 FOR X=1 TO 4:POKE ЯЗАДА+РЕЕК (ЖЗА9А+Х) „2: РОКЕ #3AAG+PEEK (#35A9E+X) 

,1:NEXT X 

9018 Y1=0:FOR X=1 TO 13 STEP 4:Y1-Y1*20: X1-0 

5019 FOR YO TO 3:X1=Xi+20:0N PEEK (#3AAGHX+Y) +1.0 GOTO 5020, 5030, 5040 
240 „ 2060 














7254 
7256 

7258 
7260 
7270 
7500 
7400 
7410 
7420 
7450 
7440 
7450 
30000 
51000 


0,1,1, 


65000 
65010 
65020 
65050 


L L^ ЕЕ T 
2 


L 


1 


C0-8:60TO 5050 

CO=14: GOTO 5050 

055 : 

FILL X1*2, Y142 X1+18,Y1+18 CO:GOTO 5070 

FILL Х1+2.5,У1+2.5 Х1+17.5,У1+17.5 0 

FOR Z=X1+2.5 TO Х1+17.5 STEP S:DRAW 2,Y1*2.5 Z,Y1+17.5 8: МЕХТ Z 
FOR 2=ү1+2.5 TO Y1417.5 STEP S:DRAW X1+2.5,Z Х1+17.5,7 В: МЕХТ Z 
NEXT Y:NEXT X:RETURN 

E=E-4:FOR F=1 TO 4:POKE (#3AFC+E+F) , PEEK (#3B00+E+F) : NEXT Е: RETUR 


X1=28: Y1=28: Z=1 
GOSUB 30000 

H=GETC 

ON PEEK (#3AAG+Z)+1.0 БОТО 7020, 7030, 7040, 7020 

С1<8:60Т0 7060 

C1-14:80T0 7060 

C1-3 

FILL X1,Y1 X1+3,V1+3 O:WAIT TIME 4 

FILL X1,Y1 X1+3,Y1+3 Ci:WAIT TIME 2 

IF H-32 THEN 7250 

IF НС16 OR H>19 THEN WAIT TIME 3:GOTO 7005 

ТЕ (H-16 AND 7<15) OR (H-17 AND Z>4) OR (H=18 AND X1>30) OR (H=1 
X1<80) THEN GOTO 7400 

IF H<>32 THEN 7005 

IF 22-1 THEN 7270 

IF PEEK (#3AA6+Z)>1.0 THEN 7005 

IF I=1.0 THEN RETURN 

FOR 23=1-1 TO 1 STEP -1:IF Z=PEEK(#3AB&+Z3) THEN 7005:МЕХТ 75 
RETURN 

IF PEEK (#3AA6+Z)=2.0 THEN 7005 

RETURN | 

IF PEEK(#3AA6+Z)=3.0 THEN FILL X1,Y1 Х1+5,у1+3 O 

ON H-15 GOTO 7420,7430,7440,7450 

Y1=Y1+20: 757+4:60Т0 7200 

Y1-Y1-20:2-2-4:80T0 7200 

X1=X1-20: Z=Z-1:60T0 7200 

X1=X1+20:Z=Z+1:60T0 7200 

НЕВЕТС: H=GETC: H=GETC: RETURN 

DATA 1,16, 2,3, 4,10, 7,11, 14,15, 4,7, 10, 11,3, 2, 2,0, 0, 2, 1,0,0,2, 1,0, 
3 

FOR Y-YMAX TO 1 STEP -1 

FOR X-0 TO XMAX STEP 2 

IF SCRN(X,Y)=3 THEN DOT X,Y-1 8 

NEXT: NEXT 


l 
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program identification 










1 .SCREEN DRIVER DEMO 
title : SCEE 


o 





author 2 N.P.Looije 
purpose н gives 1001 ways of building up the screen 







comment Š results in fascinating screen organisations... 





10 MODE O:CLEAR 500:РКІМТ CHR$(12):COLDRT O 3 3 O:POKE #75,32 
15 FOR AZ=0 TD 23: РОКЕ #ВҒЕЕ-АХҰ#86, #CO+AZ MOD 16: МЕХТ 
20 CURSOR 5,18:PRINT "SCREENDRIVER DEMONSTRAT 
ION" 
30 CURSOR 12,14:PRINT "THIS PROGRAM SHOWS HOW TO OBTAIN; " 
40 CURSOR 10,11:PRINT "64 TEXTMODES WITH VARIABLE LINESPACING" 
50 CURSOR 19,9:PRINT "242.560 GRAPHICMODES" 
60 CURSOR &,7:PRINT "13.899.008 COMBINATIONS OF GRAPHICS AND TEXT" 
65 CURSOR 14,5:PRINT "MAXIMUM RESOLUTION 5124244" 
70 CURSOR 1,1:PRINT "SDD V4.7 
NPL n 
80 IF GETC-O THEN 80: РОКЕ #75,95:PRINT CHR$(12) 
100 INPUT "TEXTMODE/SPLITMODE/GRAPHMODE [1/2/31 ";MDEZ:PRINT 
110 IF MDEZ<1 OR MDEX>35 THEN 100: ТЕ MDEX-1 THEN 600 
120 IF MDEZ<>2 THEN 150 


130 INPUT "TOP/BOTTOM TEXT [1/21 "3; TUPZ: PRINT 
140 IF TOPZ«1 OR TOPZ>2 THEN 130 
150 INPUT "DOT WIDTH: 0.67/1/2/4 11/2/3/41 ";DW2:PRINT 


151 ON рих GOTO 170,165, 150, 155: БОТО 150 
155  DBRCX-72:517b$-"A":60TDO 200 

160 GRCZ=160:SIZE$="2":GOTO 200 

165 GRCZ=336: SIZE$="1":60TO 200 

170  BGRCZ-512:851Z7bE$-"0. 67" 


200 PRINT "DOTS IN -X- DIRECTION L1-";BRCZ;"1 "gs INPUT XMXX:PR 
INT 

210 IF XMXZ«1 DR XMXZ>GRCZ THEN 200 

250 INPUT "DOT HEIGHT: Е1-161 "3DHZ:PRINT 


255 IF DHZ«1 ОК DHZ^16 THEN 250 

260 YMX%=256/DH7Z 

262 IF DHX>1 THEN YMX7-260/DH* 

264 IF GRCA=512 AND DHZ=1 THEN YMX%=244 
265 . GLRPTZ-DHX-1 


300 PRINT "DOTS IN -Y- DIRECTION Г18-" YMXZ;"] ";:INPUT GRLZ:PR 
INT 

310 IF BGRLX«1 DR GRLZ2YMXZ THEN 300 

400 INPUT "4/16 COLOR MODE [1/21 ";CZ:PRINT 


410 ON CX GOTO 415,420:80T0 400 

415  SCMZ-A:G0TO 430 

420 GCMZ=16 

430  GLCBZ-GCMZ/161880-BRCX/134t164GLRPTX 

440 — BXBZ-BRCX/4*6 

500 INPUT "COLORG La,b,c,d] ";CG0%,CG1%, C622, CG3 
"V: PRINT 

502 IF L60%0 OR С617<0 OR CG2%<0 OR CG3X«0 THEN 500 

503 IF 0607215 OR C61%>15 OR CG2%>15 OR 0657215 THEN 500 

520 CBROZ=CGO% SHL 4:COLORG C60% CG1% CG2% CES 

530 IF MDEZ-2 AND 6822242 AND GRC%=512 THEN MDEZ=3:PRINT "NO TEXTLI 
NES POSSIBLE":WAIT TIME 100:60Т0 900 
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599 IF MDEZ=3 THEN 900 

400 LMX%=264 

602 IF MDEX-2 THEN LMX%=260 

604 IF BRCZ=512 THEN LMX%=244: XLNSZ=20 

605 TMXZ-LMXX—-GRL £GLRPTYX-GRL 3 

606 IF TMXZ-O THEN MDEX=3:PRINT "МО TEXTLINES POSSIBLE":WAIT TIME 10 
0: БОТО 900 

610 = NORMZ=(TMX2Z+XLNSZ) /11: ТЕ NORMX«1 THEN NORMX=0 

620 PRINT NORMZ;" NORMAL TEXTLINES POSSIBLE" 

630 LEESZ=(TMX%Z+XLNSZ) /8: IF LEESY=O THEN LEESZ-1 

655 IF LEESZ<2 AND GRCZ=512 THEN TMX%=0:60T0 606 

640 PRINT LEESZ;" READABLE TEXTLINES POSSIBLE" 

550 IF LEESZ«2 THEN TXLZ=2: TLRPT%=0:60T0 700 

660 INPUT "NORMAL,READABLE, VARIABLE TEXTHEIGHT 1/2/3"3LZ: PRINT 
662 ON LZ GOTO 664,066,668:Б0Т0 660 

664 = TMAXZ-CIMXZ-XLNSZ) /11:TLRPTZ=10:G0T0 670 

666 TMAXZ=(TMX%+XLNS%) /8: TLRPTZ-7: GOTO 670 

668 TMAXZ=TMX%: ТЕ GRCZ-512 THEN TMAX%=244 


670 PRINT "NUMBER OF TEXTLINES MIN 2 -MAX "; ТМАХУ; : INPUT TXL%:P 
RINT | 

672 IF TXLX>TMXX OR TXLX«2 THEN 670 

680 IF LZ-3 THEN TLRPTZ-(TMXZ*XLNSX)/TXLX-1: IF TLRPT%O1S THEN TLRPTZ 
-15 

700 INPUT "4/15 COLOR MODE [1/21 ";CX:PRINT 


710 ON CX GOTO 712,714:60Т0 700 

712  TCMX-4:80T0 750 

714  TCMZ-16 

750 INPUT "COLORT Га,Һ,с,41 ";CTOZ,CT1Z,CT2X,CT3 
V: PRINT 

752 IF CTOX«O OR CT1%<O DR CT27«0 OR CT3X«0 THEN 750 

734 IF CTOX>15 DR CT1%X>15 OR CT2%>15 OR CT3%>15 THEN 750 

760  CTXOX-CTOX SHL 4:COLORT CTO% CT1% CT2% CT3% 

800 PRINT "THE SCREENDRIVER ONLY SUPPORTS 66 COLUMS" 

810 INPUT "COLUMS 166/44/22/111 ":TXCX:PRINT 
820 ТЕ TXC%<>66 AND ТХСУ<>44 AND TXC%<>22 AND ТХСУ<>11 THEN 810 
830  TXLCBZ-840*TCMZ/ 1038804 TXCZ/201 16* TLRPTZ: TXBZ-23TXCI.A2 
900 SCREENZ=#BFFF : SCTOP%=#BFEF 

905  LTOTZ-GLRPTZSGRLYZ*BRLYZ*TLRPTZRTXLUL&TXLA 

910  EXTX-(260-LTOTX) /2584 

920 | SCTUPZ-SCTUPZ-EXTZ: SCREENZ=SCREENZ-EXTZ 

999 REM *iQTttTEXTigSESS 

1005 IF MDEZ< >1 THEN 2000 

1010 PRINT CHR$(12):GÜSUB 62000 

1040 IF TXBX=#86 THEN LIST 1- 

1050 FÜR AX-CHSX TO CHEX+1 STEP -TXBX 

1060 FOR BY=A%-TXBY+5 TO AX-3 STEP 2 

1080 POKE BZ,#FF1((BZ) MOD 4)/2:1F TCM%=16 THEN POKE BX,RND(255) 
1090 МЕХТ:МЕХТ 

1100 IF TXBX=#86 THEN LIST 1- 

1990 IF GETC=0 THEN 1990:60Т0 3060 

1999 REM f*1116RAPH«-TEXTERESÉ 

2000 IF MDEZ«»2 THEN 3000 

2020 IF ТОРХ=1 THEN GOSUB 59000 

2030 IF TOP%=2 THEN GOSUB 21000 

2040 TRON:GOTO 3040 

2999 REM X8444GRAPH4X4E4 

3000 IF GRCZ=512.0 AND GRL%>242.0 THEN 3030 

3010 TXLZ-2: TXB%=#86: TXLCB%=#70: TCMZ-4 

3015 FOR АХ=#7С TO #7F:POKE АХ, PEEK (A%+#22) : NEXT 

3020 GOSUB 61000:G0TO 3040 

3030 GOSUB 60000 

3040 FILL 0,0 XMAX,YMAX 21:FILL 1,1 XMAX-1,YMAX-1 20 
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3050 
5051 
3052 


мху-умах: MXXzXMAX : FZMXY /MXX : ХМ2Х-МХХ/ 2: YM2L-MXY / 2: X22=XM2Z3XM21 
FOR XZ-0 ТО XM2% STEP 2:Y7Z=SQR(X2Z-XZ1X7) 
DRAW XM2X-XZ,YM2X4-YXtF ХМ27%Х7,ҮМ2Х%ҮЛ/Е 21:DRAW XM2X-XX, YM24*Y7. 


$F XM2X*XX,YM2X-Y7tF 21 


3054 
3055 
3056 
3057 
& 
3060 
3070 
9999 
59000 
59050 
59040 
59060 
59070 
59080 
59090 
59100 
59110 
59120 
59130 
59140 
59150 
59160 
59170 
59200 
59999 
60000 
60010 
60020 
60040 
60060 
60070 
60100 
60110 
60200 
60220 
60250 
60250 
60270 
60280 
60310 
60320 
60800 


1+0607 


60820 
60830 
60832 
60834 
60840 
60900 
60999 
61000 
61010 
61020 
61030 
61040 
61060 
61070 
51080 
61090 
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IF GETC<>0 THEN 5060 

NEXT: XMX12=XMX2Z/8%8: GRL12=GRL“Z/848 : 

IF GETC<>0 THEN 3060: AZ=RND (ХМХ17/8%7) : BZ-RND (GRL12/8%7) 

FILL A%,B% AX-XMXZ/8,BZ*BRLX/8 RND(GCMZ) +204 (1-6СМХ/16) :60T0 305 


TROFF:POKE #80,#FF:POKE #81,#BF:POKE 482,4EF:POKE #83, #ВЕ 
MODE O:PRINT CHR$(12):END 

БОТО 9999 | 

MODE 1A: IF GCMX-4 THEN MODE 2A 
FFBX-SCTOPZ-TXLX&TXBX-GRLZ$GXBX—420 
SCRBOTZ-FFBX*1 
BREZ-SCTOUPZ-TXLXSTXBX- (GRLZ—GAL X) $GXBX—410 
CHS%=SCTOP% 

CHEX=SCTOPX-TXLZ4TXBX 
SCEZ=SCTOPZ-TXLZ4TXBZ-(GRLX-6AL7) 36XB%.-#20 
CRSORX-CHS7-48 

LNSTRZ-CHSX 

SCTOPX-SCTOPZ-TXLZ$TXBX—EH10 

БАЕХ-БНЕХ 

ТЕ TCM%=4 THEN GOSUB 64000 

ТЕ TCMZ-15 THEN GOSUB 64100 

ТЕ GCMZ-4 THEN GOSUB 54200: Б05ЦВ 43400 

IF GCMZ-165 THEN GOSUB 44300: GOSUB 63700 

GOTO 51200 

REM 3*3*33533*323333-3 3 33 3 23 33$ £ 33 $3 3 1$ 3£UNSPLIT MODE 
MODE 2:1F GCMZ-15 THEN MODE 1 
FFBZ-SCTOPZ-GRLYS8XBX—K10 

SCRBOTZ-FFBZ*1 

BREXZ-SCTOPZ-GRL7Zt$GXBX 

GAEX-SCTOPZ-GRL Z16XBX 
SCEZ-SCTOUPZ-BRL7ZXGXBX-410 

IF GCM%=4 THEN GOSUB 43000:GOSUB 63500 

IF GCMX-16 THEN GOSUB 63100: 6OSUB 63700 

POKE #80,SCREEN% MOD 256: РОКЕ 481,SCREENZ/256 
POKE #82,SCTOP% MOD 256:РОКЕ #83, SCTOPZ/256 
POKE #84,FFB% MOD 254:POKE 485,FFBX/256 

POKE #88,GRE% MOD 255:POKE #89, GREZ/ 256 

POKE #8C,GAE% MOD 256:POKE #8D,GAE%/256 

POKE #8E,5CE% MOD 256:РОКЕ #8F,SCE%/256 

POKE #94,XMX% MOD 254:POKE #95, XMX%/256 

POKE #96,GRLZ:POKE #98, GXBZ 

CCBY%=#40: DZ=0:E%=0: ТЕ БСМХ=16 THEN D%=#FF:E%=CG1%+CGROZ: CCBZ-CCB 


FOR AZ=SCTOP% TO GREX*1 STEP —GXB% 

POKE AZ,GLCBZ:POKE AX-1,CCBZ 

FOR BXZ-AX-8XBZ«2 TO АХ-2 STEP 2 

POKE BZ,DX:POKE BX-1,EX 

NEXT: NEXT 

RETURN 

REM ttft1t1333333:33313 331 3 9 (009 $3 3 3 2 3 3 3X EE LI SPLIT MODE 
MODE 1А: ТЕ GCMZ=4 THEN MODE 2A 
CRSORZ=SCTOP2— (GRLZ-GALZ) $6XBZ—4H18 
LNSTRZ-SCTUP7.- (БЕ! 7—БА 7.) $6XBX—10 
FFBX-SCTUPX-TXL4$TXBZ-GRLZ$GXBZ-820 
SCRBOTZ-FFBX-*1 ; 

GREA=SCTOP%- (GRLZ-SALZ)36XBZ 

CHSX=SCTOPX-— (GRLZ-GALZ) 26ХВХ-#10 . 
CHEZ=SCTOPZ-TXLZfTXBX-(GRLZ-SALZ)f8XBZX-#10 
SCEX-SCTOPX-TXLX£TXBZ- (GRLX-GALZ) $GXBXZ—420 
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61100 IF GCMZ=4 THEN GOSUB 43000 
61110 IF TCMZ-4 THEN GOSUB 63200:G0SUB 63400 

61120 IF БСМХ-16 THEN GOSUB 63100 

61130 IF TCMX-16 THEN GOSUB 43300:GOSUB 63500 

61200 POKE #72,CRSORZ MOD 256:РОКЕ #73, CRSOR%/256 
61210 POKE #78,LNSTR% MOD 256:POKE #79,LNSTR%/254 
61220 POKE #7А, (LNSTRZ+TXB%-6) IAND ЖЕР 

61250 POKE #80,SCREENZ MOD 256:РОКЕ #81, SCREENZ/256 
61240 POKE #82,SCTOP% MOD 254:POKE #83, SCTOP%/256 
61250 POKE #84,FFBX MOD 256:POKE #85, FFB%/256 

61270 POKE #88,GRE% MOD 256:POKE #89, GRE%/256 

61280 POKE #8A,CHSX MOD 256:POKE #8B,CHS%/256 

61290 РОКЕ #8C,CHE% MOD 256:POKE #8D,CHEX/256 

61300 POKE #8E,SCEX MOD 256:РОКЕ #8F,SCEX/256 
51550 POKE #94, XMX% MOD 256:POKE #95, XMXX/256 
61540 РОКЕ #96,GRL% MOD 256:POKE #98, GXBY 

61380 РОКЕ #2A5,SCRBOTX MOD 256:РОКЕ #2A6, SCRBOT%/256 
61440 CCBZ-840:DX-O:EX-0: IF GCMX-15 THEN DZ=#FF:E%=CGROZ+C61 2: CCBX-CCB 
%+CG0% 

61450 FOR AX=SCTOPX TO GREX+1 STEP -БХВ7 

61460 POKE AX,SLCBZ:POKE AX-1,CCBX 

61470 FOR BZ-AX-GXBZ«2 TO AX-2 STEP 2 

61480 POKE BZ,DX:POKE ВХ-1,ЕХ 

51490 NEXT:NEXT 

61600 CCBZ=#40: IF TCMZ-16 THEN CCBX-CCBX4CTOZ 

61610 FOR AX-CHSX TO CHEZ*1 STEP -TXBZ 

61620 POKE АХ, ТХ СВХ:РОКЕ AZ-1,CCB% 

61630 FOR BZ=ñZ-TXBZ+2 TO AX-2 STEP 2 

61640 POKE BZ, #20:POKE BX-1,TCMZ/153RND(255) 

61650 NEXT: NEXT 

61990 RETURN 

61999 REM 35331313513155553335535353535534533333533TEXTMODE 
62000 MODE 0 

62010 FFBX-SCTOPX-TXLZ&TXBX-410 

62032 SCRBOTX=FFBZ+1 

62100 CHEX=SCTOPZ-TXLZATXBX 

62120 SCEX=SCTOPZ-TXLXZATXBX-#10 

62130 CHSX=SCTOPX 

62140 CRSORZ-SCTÜPX-8 

82150 LNSTRXZ-SCTOPZ 

62170 РОКЕ #72, CRSORZ MOD 254:POKE #73, CRSORZ/256 
62180 РОКЕ 478,LNSTRZ MOD 256:РОКЕ #79,| NSTRX/256 
62190 POKE #7А, (LNSTRZ-TXBZ*5) ТАМО #FF 

62200 РОКЕ 480,SCREENX MOD 256:POKE #81, SCREENZ/256 
62210 POKE #82,SCTOPZ MOD 256:POKE #83, SCTOP%/256 
62220 POKE #84,FFB% MOD 256: РОКЕ 485,FFBX/256 

62250 POKE #8A,CHS% MOD 256:POKE #8B,CHSX/256 

62260 POKE #8C,CHE% MOD 256:POKE #80, CHE%/256 
62270 POKE #8E,SCE% MOD 256:РОКЕ #8F,SCE%/254 
62280 POKE #2A5,SCRBOT% MOD 254:POKE #286, SCRBOT%/256 
62400 IF TCMX-4 THEN GOSUB 63800:GOSUB 63400 

62410 IF TCMZ-16 THEN GOSUB 55900: GOSUB 63500 
62500 REM TEXT 

62505 CCB%=#40: IF TCMX-16 THEN CCBX-CCBX4CTOY 

62510 FOR A%=CHS% TO СНЕХ+1 STEP -TXBX 

62520 POKE АХ, ТХ СВХ:РОКЕ AX-1,CCBX 

62530 FOR BZ=A%-2 TO AX-TXBZ*1 STEP -2 

82550 POKE ВХ-1, ТСМХ/163ЕМ0 (256) :РОКЕ B4, #20 

62560 NEXT: NEXT 

62570 RETURN 
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63000 
63010 
65020 
65050 
65040 
65100 
65110 
63120 
63130 
63140 
63200 
63210 
63220 
63230 
65240 
63300 
63310 
65320 
63330 


63340 NE 


63400 
63410 
63420 
65430 
63440 
63500 
63510 
65520 
63530 
43540 
63600 
65610 
65620 
63630 
63640 
63700 
63710 
63720 
63730 
63740 
63800 
63810 
63820 
63830 
63840 
63900 
63910 
63920 
65930 
65940 
64000 
64010 
64020 
64050 
64040 
64100 
64110 
64120 
64130 
64140 


REM 11147##441#1#1121411111#2111414#44#6Н 4 KL HEADER 
FOR A%=SCTOP%+1 TO #BFFF STEP 4 

POKE AZ,O:POKE A%+1,0:POKE AZ+3, #36 

POKE A%+2, PEEK (#A1-(AZ-SCTOP%-1)/4 MOD 4) 

NEXT: RETURN 

REM ЖЖЖЖ ИКЕ АДАА АББ 16 KL HEADER 
FOR AX=SCTOPZ+1 TO &BFFF STEP 4 

POKE AZ,CGROZ:POKE A%+1,#FF:POKE Ах+5, #B6 

POKE AZ+2, PEEK GEA1- CAX-SCTUPZ-1) /4 MOD 4) 

NEXT: RETURN 

REM ххх аурууу KL INTER 
FOR AZ=CHS%+1 TO CHSX+16 STEP A 

POKE AX,0:POKE A%+1,0:POKE AZ+3, #30 

POKE AX+2, PEEK (#7F—(AZ-CHSZ—-1) /4) 

NEXT: RETURN 

REM 118Х141411#4#111111111111121#1811416 KL INTER 
FOR AX=CHSZ+1 TO CHS%+16 STEP A 

POKE AZ,CTXOZ:POKE AZ+1,#FF:POKE A%+3,#B0 

POKE AZ+2, PEEK GE7F- CAX-CHS4.-1) /4) 

: RETURN 

REM x$dditittdytttayiiikidkdgtkikid KL TX+SPLIT TRAILER 
FOR AX-CHEZ TO CHEX-15-EXTZ STEP -4 

POKE А%-5,0:РОКЕ АХ-2,0: РОКЕ AZ, #3F 

POKE AZ-1, PEEK (#7C+ (CHEZ-A%) /4 MOD 4) 

NEXT: RETURN 

REM #11111831131#111211213324316 KL TX+SPLIT TRAILER 
FOR AZ-CHEZ TO CHEX-15-EXTZ STEP -4 

POKE A%-3,CTXOZ: РОКЕ АХ-2 „#РЕ:РОКЕ AX, #ВЕ 

POKE AZ-1, PEEK (#7С+ (СНЕХ-АХ) /4 MOD 4) 

NEXT: RETURN 

REM $33tittíititi1íiígniiíi3iiibifirWXiGR 4 KL TRAILER 
FOR AZ=GAEZ ТО GAEX-15-EXTZ STEP A 

POKE AZ-3,0:POKE AX-2,0:POKE АХ, #3F 

POKE AX-1,PEEK (#9Е+ (БАЕХ-А7) /4 MOD 4) 

NEXT: RETURN 

REM 11112111114111142411114Х#4244466 16 KL TRAILER 
FOR AX-GAEX TO GAEX-15-EXTX STEP -4 

POKE AZ-S,CGROZ:POKE AZ-2,#FF:POKE АХ, #ВЕ 

POKE АХ-1,РЕЕК (#9Е+ (БАЕХ-АХ) /4 MOD 4) 

NEXT: RETURN 

REM 113111111311144111111143#31148#Т7Х 4 KL HEADER 
FOR AZ=SCTOPZ+1 ТО #BFFF STEP 4 

POKE АХ, 0: РОКЕ AZ+1,0:POKE AZ+3, #346 

POKE AZ+2, PEEK (#7F—-(AZ-SCTOP%-1) /4 MOD 4) 

NEXT: RETURN 

REM $Xf43313X*133f33**33* T3393 $3 3 3 £ 4X3 TX 16 KL HEADER 
FOR AX=SCTOPZ+1 TO #BFFF STEP 4 

FOKE АХ, СТХОХ: РОКЕ AZ+1,#FF:POKE A%+3, #B6 

POKE AZ+2, PEEK (#7F-(AZ-SCTOPZ-1)/4 MOD 4) 

NEXT: RETURN 

КЕМ ХЖ Ж Я ДИ ИВИ Е ИЯД УСБ 4 KL INTER 
FOR AZ=SCTOPZ+1 TO SCTOPZ+16 STEP A 

POKE A%,0:POKE AZ+1,0:POKE AZ+3, #30 

POKE AZ+2, PEEK (#A1-(AZ-SCTOP%-1) /4) 

NEXT: RETURN 

REM Жаак ЗИН Н НО ЕНЕДК СБ 15 KL INTER 
FOR AZ=SCTOP%+1 TO SCTOP%+16 STEP A 

POKE AZ,CGROX:POKE AZ+1,#FF:POKE AZ+3, #BO 

POKE AZ+2, PEEK (#A1-(A“%-SCTOPZ-1) /4) 

NEXT: RETURN 


246 - DAInamic 12 


64200 REM 13#3#3#141111111444411411445Р1 ТХ 4 KL HEADER 
64210 FOR AZ=CHSZ+1 TO #BFFF STEP 4 

54220 POKE А7,0:РОКЕ AZ+1,0:POKE AZ+3, #56 

64230 POKE AXZ+2, PEEK (#7Е-(АХ-СН9ЗХ-1)/4 MOD 4) 

64240 NEXT: RETURN 

64300 REM #11131114#1111111114141144445Р1 TX 16 KL HEADER 
64310 FOR AXZ-CHSZ*1 TO #BFFF STEP 4 

54520 POKE AZ,UTXOZ:POKE AZ+1,#FF:PDKE AZ+5, #B6 

64530 POKE AZ+2, PEEK (#7F—(AZ-CHSZ-1)/4 MOD 4) 

64340 NEXT: RETURN 


MODE 6: СЕАК SOOO:REM POLYGONS F.H. DRUIJFF 1/82 
ат 3 +КМО (10) :1Е RND{10)>8 THEN A=A+RND (15) 
R!=40. 0+RND (80.0):DIM BCA), ССА) :Р!+ (РТ+РТ) /а 

FOR I=1 TO A:H=R!*CO0S((I-1) 3Р!):В(Т) =168+H 

Най! #51М((1-1) XP!) СЕТ) =128+H: NEXT 

COLORG O 5 10 RND(15)+1:FOR J=1 ТО А: РОК I-J TO A 
DRAW B(J),C(J) В(1),С(1) 25: МЕХТ: МЕХТ 

WAIT TIME 100:60Т0 10 


REM FALLING DOT / F.H. DRUIJFF 1/82 

MODE 2:COLORG O 5 14 3:DRAW 0,64 71,64 21 

FOR 120 TO 71:DOT 1,63 22:DOT 1,64 20 

FOR J=62 TO О STEP -1:DOT I,J 22:DOT 1,9+1 20:NEXT 


DOT 1,0 23:NEXT:END 





REM FILLING SCREEN WITH DOTS / F.H. DRUIJFF 1/82 
MODE 2:COLORG O 5 10 15:X-0:Y-O 

DOT X,Y 21: ХХ+1:1Е X571 THEN X=71:GOTO 410 
уту+1: ТЕ Ү<=64 GOTO 100: Y=64:GOTO 200 

DOT X,Y 21:X=X+1:IF X>71 THEN X=71:GOTO 510 
Y=Y-1:1IF Ү>=0 GOTO 200: Ү=0: БОТО 100 

DOT X,Y 21:X-X-1:IF X«O THEN X=0:GOTO 210 
Y-Y-1:IF Y>=0 GOTO 300: Y=0:GOTO 400 

DOT X,Y 21:Х-Х-і:ІҒ X«O THEN X=0:GOTO 110 
Ужу+1: IF Y<=64 GOTO 400: Y=64:GOTO 500 
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identification 


title DAI VIDEO SCREEN RAM 


author N.P.Looije 
purpose explains how DAI Screen is build up 


comment 3 _ The study did result in MODE 7/8 and тоге... 





HOEK VAN HOLLAND 10 SEPTEMBER 1982 


BESTE DAI VRIENDEN, 


Hierbij doe ik jullie meerdere programma’s toekomen. 

Twee hiervan zijn aanvullingen op het artikel over 

2404528 resolutie in het DAInamicblad nummer 10, nl. MODE 7 
en MODE 8 met demonstraties en een uitleg over de pointers. 
Na voornoemd artikel te hebben gelezen was ik meteen enthou- 
siast om dit eens uit te proberen. Het programma ingetypt 
maar helaas wat bleek het scherm werd wel geïnitialiseerd 
maar verder kon ik er niets mee aanvangen. 

Ik ben toen eens gaan uitzoeken hoe dat kwam. En zo ook het 
beeldscherm en de controlewoorden uit gaan zoeken aan de 
hand van het DAI manual. 

Na wat uitzoeken kwam ik tot de volgende opzet; 


SCHERMOPBOUW MODE ЗА na COLORT O 1 2 3 COLORG 0 1 2 3 
N.B. Alle gegevens zijn vanaf de TOP van het scherm!. 


#ВЕЕЕ 
$SŠSEREEN-—————?U' D+ I 
I 56 80-00 00 UNITCOLORMODE/COLORG 0 ======== I 
I 36 91-00 00 ' 2 /COLORG 1 =HEADER= I 
I 56 А2-00 00 7 ? /COLORG 2 ======== I 
I 36 B3-00 00 ^" 5 /COLORG 3 I 
BSC TOP —— ت ی ت‎ 02222. I 
I 03 40-00 00 00 00 00 00 00 оо 00 00 00 оо оо OO OO 00 00 00 00 00 00 00 1 
1 totaal 53 CGRL-GALI lijnen GRAPHICS met #18 [GXB] bytes/li jn I 
WSSRE-- EE lee eee LLL он Le LL e I 
I 50 80-00 00 UNITCOLORMODE/COLORT 9 I 
I 50 91-00 OO >, à /COLORT 1 ============== I 
І 30 A2-00 00 ? ? /COLORT 2 =INTERMEDIATE= I 
I 50 B3-00 00 ^" z /COLORT 3 ============== I 
ACHS------—- LLL ци I 
I 7А 40-20 00 (6614120 001) I 
I totaal 4 [TXL] lijnen TEKST met 485 [TXB] bytes/li jn 

SCHE----------—-—- a _ I 
I ЗЕ 80-00 00 UNITCOLORMODE/COLORT 0 I 
I SF 91-00 00 7 : /COLORT 4 ========= I 
І SF А2-00 00 ^" ? /COLORT 2 =TRAILER= 1 
І 3F B3-00 00 7 j /COLORT 3 ========= I 
15СЕ/675----------------------------------- << 1 
I 03 40-00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 OO OO OO OO I 
1 totaal 12 CGAL] opgeschoven lijnen (van bovenaan het scherm) ЗЕЕВ 
GE 0 rns I 
#B8B7 
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#BFFF-#BFFO deze lijn bevat de HEADER.Voor mode 2A is dit; 
#BFFF-#BFFD 36 80 OO 00 dit heeft als gevolg: 


#34 is het МОРЕВУТЕ "HIGH adress’ 
bit 7,6 [001 displaycontrol : 4 colour graphics 
bit 5,4 [111 resolutioncontrol: 528 dots per lijn 


bit 3,2,1,0 £0110] linerepeatcount : nog 63 herhalen 
#80 is het COLOURTYPEBYTE *LOW adress’ 
bit 7 Ci] maakt een kleurverandering mogelijk 


bit 6 [0] zet deze lijn in "unit colour mode’ 
zodat de twee databytes zoveel keer 
worden herhaald als bepaald door de 
resolutioncontrolbits. 

bit 5,4 1001 geven aan dat kleur register O wordt 
bepaald uit 'CDLORG' door bits 3-0. 
Iedere keer als de HIGH en LOW databits 
О en O zijn wordt de kleur uit bits 3-0 
gebruikt, dit blijft zo totdat kleur 0 
anderd wordt in een ander colourtype- 
byte d.m.v. bit 7 en 5,4. 

bit 3,2,1,0 [£0000] selecteren kleur O uit 16 kleuren 

#00 is de HIGH BYTE "HIGH adress 

bit 7-0 [00000000] selecteert voor alle dots in combinatie 
met de low byte kleur 0 uit COLORG 

#00 is де LOW BYTE "LOW adress’ 

bit 7-0 [00000000] zie HIGH adres 
deze 2 bytes worden door de "unit color 
mode’ nog 65% herhaald. 


Op gelijke wijze worden de volgende 12 bytes afgehandeld in 
de "unit color mode’. Dit zijn dus totaal 28 lege lijnen. 
De bits 3-0 van #BFFA,#BFF6 en #BFF2 bevatten respectieve- 
lijk de kleuren 1,2 en 3 uit de *COLORG* registers de bits 
5 en 4 bepalen welk nummer. 

Deze 28 lege lijnen komen in deze vorm in alle 4 kleuren- 
modes voor. In de 16 kleurenmodes gebeurt iets soortgeli jks, 
hier zijn alleen de bits die de 4 kleurenmodedata bevatten 
vervangen door 16 kleurendata. Dit houdt o.a in dat kleur- 
veranderingen niet direkt plaatsvinden na COLORG. 

De intermediate en trailer (linerepeatcount resp.0 en #F) 
werken op dezelfde wijze maar dan met data voor COLORT. Het 
COLORG werkt op de HEADER. 

Het COLORT op de INTERMEDIATE en TRAILER. 

De linemodebytes voor de graphics en de tekst bevatten de 
data voor de displaycontrol,resolutioncontrol,linerepeat- 
count en de lengte van de li jnen. De colourtypebyte staat 
neutraal, bit 7-0 (geen kleurverandering) en bit 6-1 (geen 


"unit colourmode’). 


Informatie hierover is uitvoerig beschreven in het manual 
onder PROGRAMMABLE GRAPHICS GENERATOR. 


MAXIMALE RESOLUTIE - 512%244 MODE 7 & 8 

In het manual kunnen we lezen dat het geheugen voor het 
beeldscherm maximaal 32K byte kan innemen van #4000-#ВЕЕЕ. 
Een rekensommet je leert dan dat bij 528 dots per lijn er 
#86 (134) bytes per li jn zijn еп dus maximaal 32768/134-244 
lijnen mogelijk zijn. Dus meer dan 240. 

De controlewoorden moeten dan zi jn; 


MODEBYTE 

bit 7,6 1001 voor 4 kleurengraphics 
[101 voor 16 kleurengraphics 

bit 5,4 [111 voor 328 dots per lijn 


bit 3,2,1,0 [00001 voor 1 lijn dus niet herhalen 
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290 - 


СО ОКТУРЕВУТЕ 

bit 7 £0] bit 5-0 negeren 

bit 6 ГЕЈ geen "unit color mode’ 

bit 5-0 ГХХХХХХ1 maakt niet uit 

Wij vinden dus voor MODE 7 #BO #40 en voor MODE 8 #30 #40. 
MODE 7 opstarten via MODE 1,3 of 5,MODE 8 via MODE 2,4 of 4. 


Vanaf #BFEF met een stap van #86 worden deze bytes 2444 
ingevuld. Hierna moet een trailer (linerepeatcount ЯҒ) 
komen die identiek is aan de header en die dient om de rest 
van het beeld te vullen met lege lijnen. Als we dit niet 
doen krijgen we een warboel onder in het beeld. 

Als dit gebeurt is is het scherm geinitialiseerd. Maar dan 
kan je er nog niet mee werken. Dan moeten de pointers voor 
de graphische functies worden ingevuld bij CURRENT STATE 
DF SCREEN ,CHARACTERMODE en START OF SCREEN. 

Na een tijdje expirimenteren met het in vullen van de diver- 
se pointers bleek dat de DOT, DRAW, FILL en SCRN() uitste- 
kend bleken te werken. Zelfs de foutmeldingen zoals COLOR 
NOT AVAILABLE en OFF SCREEN worden gegeven XMAX blijkt 
(hardwarematig) beperkt tot 511 en YMAX=245. 

De nieuwe pointers zijns 


80/81 SCREEN #BFFF 90/91 BTE XXXX 
82/83 SCTUP ` #ВРЕЕ 92/93 GAS/GTS ХХХХ 
84/85 FFB #4027 94/95 БКС #0200 
86/87 GRR XXXX 96 GRL # #4 
88/89 GRE #4037 97 GAL # XX 
8A/8B CHS #4027 98 GXB # 96 
8C/8D GAE/CHE #4037 

BE/8F SCE #4027 


HOE DE POINTERS TE BEREKENEN 

Zonder het ROM te hebben bestudeerd ben ik tot de volgende 
invulling van de pointers gekomen. Met hulp van de memory- 
rymap V4.4 heb ik de functies van het scherm getest.. 

Het kan dus onvolledig zijn maar het werkt voor alle modes! 
De plaats van de pointers kunt u zien in de schetsen. 
Hieronder vindt U de belangri jke pointers voor het ontwer- 
pen van een eigen mode.Met een korte beschrijving en hoe ze 
te berekenen. Zij zijn gegeven voor; 

A. Tekstmode [MODE 01 

B. Graphische mode [MODE 1-8] 

С. Splitmode tekst опдегаап [MODE 1A-8A] 

D. Splitmode tekst bovenaan [MODE 1B-8B] 

Enige hulpwaarden; 


HDRL=header lengte {normaal #10) 
INTL=intermediatelengte (normaal #10) 
TRAL=trailerlengte {normaal #10) 


TXL -aantal li jnen tekst 

TXB =aantal bytes per tekstlijn (#86) 
mag ook #5A,#2E of #18 zijn maar de screendriver Кап 
alleen met #84 werken. 


472/8753 CURSOR 

Positie van de cursor op beeldscherm.Bi j het zetten van de 
cursor in een nieuwe text- af splitmode moet men deze op 

8 bytes na de linemodebyte komen.In een graphicmode wordt 
de cursorpositie op 0000 gezet. 

¥ A.+C.+D. >> CHS-8 

¥ B. >> 0000 


"478/479 LNSTR - LiNeSTaRt 
Linemodebyte van de cursorli jn. 
% A.+C.+D. >> CHS 

* B. +> don't care 


4758 LNEND - LiNeEND 
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Low byte van het eind van de cursorli jn. Gebruikt om het 
einde van de li jn te controleren. 

X A.+C.+D. >> (DHS-480) IAND #FF 

t B. >> don't care 


480/481 SCREEN 

Top van het scherm, wordt gebruikt voor de cursorpositie en 
voor memorycheck tijdens modewisseling. 

¥ A.+B.+C.+D. >> #BFFF 


482/483 SCTOP - SCreenTOP 

Deze pointer wijst naar de eerste byte (linemodebyte) van de 
graphics, direct na de header of intermediate. De naam SCTOP 
is in dit geval wat ongelukkig gekozen, deze pointer had 
beter GRS (GRaphicsStart) kunnen heten omdat deze pointer 
ook naar ergens middenin het schermgeheugen kan wi jzen. 
Wordt gebruikt voor COLORG en tekencommando’s. 


IA. >> don’t care 
4B.+C. >> #BFFF-HDRL 
xD. >> #BFFF-HDRL-TXLATXB-INTL 


484/4885 FFB - FirstFreeByte 

Deze pointer wijst naar de eerste byte na het beeldscherm. 
за. >> #BFFF-HDRL-TXL&TXB-TRAL 

18. >> #BFFF-HDRL-GRL&GXB-TRAL 

3C.+D. >> #BFFF-HDRL-TXLITXB-INTL- {SRL-GAL) $8XB-TRAL 


#86/#87 GRR -GRaphicsRolled 

Deze pointer wordt gebruikt in splitmodes. Hij geeft aan 
vanwaar het scherm is opgeschoven om ruimte te maken voor 
de tekstregels. Het gedeelte boven GRR tot aan SCTOP is 
naar net onder het zichtbare scherm verplaatst. Omdat 
opschuiven niet mogelijk is in een eigen mode zijn deze 
pointers van weinig waarde. 

за. >> don’t care 

XB.+C.+D. >> #BFFF-HDRL-GALSGXB or don’t care 


488/489 GRE - GRaphicsEnd 
Deze pointer wijst 1 byte na het einde van het voor graphics 
gebruikte beeldschermgeheugen. Gebruikt in tekenfuncties. 


за. »> don't care 

3B. >> #BFFF-HDRL-GRLIGXB 

1C. >> #BFFF-(GRL-GAL) $GXB 

1D. >> SBFFF-HDRL-TXL£TXB-INTL - (GRL-BAL) #GXB 


84/8B CHS - CHaracterStart 

Deze pointer wijst naar de eerste byte (linemodebyte) van de 
tekst. Wordt o.a. gebruikt in PRINT en COLORT commando's. 
4A.+D. >> #BFFF-HDRL 

ЗВ. >> #BFFF-HDRL-GRLIGXB or don't care 

2С. >> #BFFF-HDRL- (GRL-GAL ) 36XB-INTL 


#8C/#8D GAE/CHE GraphicsArchiveEnd/CHaracterEnd 

In een tekst of splitmode wi jst deze pointer 1 byte na het 
tekstgedeelte. In een unsplitmode wi jst deze pointer 1 byte 
na de trailer. Wordt o.a. voor PRINT gebruikt 


A. >> #BFFF-HDRL-TXL&TXB 

B. >> #BFFF-HDRL-GRLIGXB-INTL 

С. >> #BFFF-HDRL- (GRL-GAL) 86XB-INTL-TXLITXB 
D. >> #BFFF-HDRL-TXLXTXB 
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#8E/#8F SCE - SCreenEnd 
Deze pointer wijst 1 byte na het einde van het scherm dus 
dus direkt na de trailer. Wordt o.a. voor COLORG en COLORT 


gebruikt. 
A. >> #BFFF-HDRL-TXLFTXB-TRAL 
B. >> #BFFF-HDRL-GRLIGXB-TRAL 


C.+D. >> #BFFF-HDRL-GRLIGXB-INTL-TXLITXB-TRAL 


#90/#91 GTE - GraphicsTemporary save areaEnd 

In een graphicmode wi jst deze pointer naar het einde van 
het gebied waar het opgeschoven gedeelte graphics zich 
bevindt. 

а. >> don't care 

B.4C. *D. >> #BFFF-HDRL-(GRL+GAL) $GXB or don’t care 


1492/4893 GAS/GTS - GraphicsürchiveStart 

| /GraphicsTemporary save areaStart 
In een graphicmode wi jst deze pointer naar de start van 
het gebied waar het opgeschoven gedeelte graphics zich 
bevindt. 
а. >> don’t care 
В. >> #BFFF-HDRL-TXLSTXB-GRL4&GXB or don't саге 
с. +р. >> #BFFF-HDRL-GRL&GXB 


494/495 GRC -GRaphicColumns 

Deze pointer geeft het aantal dots in de X richting aan. 
De waarde moet minimaal 1 zijn en maximaal zoveel als de 
linemodebyte bepaald.Bi jvoorbeeld voor very high re- 
solution =#86 bytes/lijn is het max.Bf (#86/2-3)-#200-512 
voor low resolution #18 bytes/li іп is het 82(#18/2-5)-#48 
72. Gebruikt door tekencommando’s. 

f. >> don't care 

B.*C.*D. >> GRC or ХМАХ+1 


#96 GRL - GRaphicLines 

Deze pointer geeft het aantal dots dus het aantal li jnen 

Y richting. De waarde moet minimaal 16 en maximaal 256 zi jn. 
Gebruikt door tekencommando’s. 

A. 22 don't care 

B.+C.+D. >> GRL=YMAX+1 


#97 GAL - GraphicArchiveLines 

Deze pointer geeft het aantal opgeschoven of op te schuiven 
lijnen aan. Bij het zelf ontwerpen van een mode kan men de 
waarde 0 gebruiken. 

A.*B.*C. *D. >> don't care 


498 GXB GraphicXBytes 
Het aantal bytes per li jn in de gebruikte graphische of 
splitmode. Gebruikt in tekencommando’s. 
A. >> don't care 
В.+С.+0. >> Als bepaald door linemodebytes graphics 
resp. #86, #5A, #2E,#18 voor MODE 7/8,5/4,3/4,2/1. 


#99/#9A GREG - GRaphicsEndOld 

Vorig einde of graphics. Behoeft men niet in te vullen bij 
het ontwerpen van een mode. 

A.+B.+C.+D. >> don’t care 
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#9B/#9C СН50 - CHaracterStartOld 

Vorig einde characters. Behoeft men niet in te vullen bi j 
het ontwerpen van een mode. 

а. +В.+С.+0. >> don’t care 


#2A5/2A6 SCRBOT - SCReenBOTtom 

Hier staat de eerste byte van het schermgeheugen, wordt o.a. 
gebruikt voor testen op OUT OF SPACE FOR MODE. 

A. >> WHBFFF-HDRL-TXL£TXB-TRAL +1 

В. >> #BFFF-HDRL-GRLIGXB-TRAL+1 

C.+D. >> WBFFF-HDRL-GRL£G6XB-INTL-TXL£TXB-TRAL +1 


Indeling van de verschillende modes; 
Met de plaats van de pointers. 





5СКЕЕМ-----------------І 5СНЕЕМ------------------І 

І HEADER I I HEADER I 

CHS———— I SCTOP--—---—-——-------—-1 
| I I I | 1 

I TEKST I I GRAPHICS I 

I I 1 I 

СНЕ--------------------1 BRE---—-----—---------—-I 

I TRAILER FFB I I TRAILER FFB I 

SCE-------——— 1 5ГЕ--------------------- 1 

8СКЕЕМ----------------- 1 BCREEN I 

I HEADER I I HEADER I 4 

СН5-------------------- 1 STE a 1 | 
| I I I I | 
| 1 ТЕКОТ I I GRAPHICS I | 

1 1 I I | 

СНЕ-------------------- 1 GRE------------——-------- I | 
| I INTERMEDIATE I I INTERMEDIATE I | 
| 5СТОР------- 4-------- 1 Снб--------------------- I | 
| 1 1 1 1 | 
| 1 GRAPHICS 1 1 TEKST I 

I I I I 

БКЕ-------------------- І СНЕ--------------------- І 

І TRAILER FFB I I TRAILER FFB I 

5ГЕ-------------------- І SLE----------— I 


Dan volgen hier de waardes voor de HEADER, INTERMEDIATE 

en TRAILER na een COLORT их y z en of COLORG ы x y z. 

De HEADER en de INTERMEDIATE bevatten de kleuren van het 
gedeelte waar zij boven staan (graphics COLORG/tekst COLORT) 
De trailer bevat de kleuren van waar hij onderstaat 

HEADER 4 KLEUREN 

36 Ви 00 00 56 9x 00 00 34 Ay OO 00 56 Bz 00 00 
INTERMEDIATE 4 KLEUREN 

30 Sw 00 00 30 9x 00 00 30 Ay 00 00 30 Bz 00 00 


TRAILER 4 KLEUREN 
ЗЕ Ви 00 00 ЗЕ 9x 00 00 ЗЕ Ay 00 00 ЗЕ Bz 00 00 
HEADER 16 KLEUREN 


B6 Ви wO ЕЕ B6 9х wO FF Bé Ay wO FF Ве Bz wO ЕЕ 
INTERMEDIATE 16 KLEUREN 

BO Sw wO FF BO 9x wO FF BO Ay wO FF BO Bz wO ЕЕ 

TRAILER 16 KLEUREN 

BF Sw wO FF BF 9x wO FF BF Ay wO FF BF Bz wO ЕЕ 

OPMERK INGEN | 

Bij een charactermode worden door LIST, ?CHR$ (12) en UT de 
tekstili jnen teruggebracht naar de normale li jnaf stand. 
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ЭС 





In 16 kleurentekst wordt door deze commando's ook het scherm 
weer teruggezet naar 4 kleuren, bij de scroll van het beeld 
wordt de onderste li jn in 4 kleurenmode afgedrukt. 

Bij onderste tekstlijn wordt alti jd een normale regelafstand 
geforceerd. 

Bij het expirimenteren met de MODES ва en 74 bleek dat deze 
niet ingesteld worden bij een BREAK omdat de screendriver 
deze modes niet kent. Dit zal dan door een kunstgreep moeten 
gebeuren nl. door 240 lijnen graphics еп 4 lijnen tekst te 
nemen met een linerepeatcount van 0. Bij een BREAK forceert 
de screendriver dan 1 li jn met een linerepeatcount van Жа. 
Door ?CHR$(12) wordt dan de linerepeatcount van alle tekst- 
lijnen op #4 gezet. 

Bij de volle 244 lijnen graphics is dus raadzaam in een pro- 
gramma het volgende op te nemen bijv. 65335 IF GETC-O THEN 
45353: MODE 0 

De dots in MODE 7/8 zijn niet vierkant [Y=ca.1.5%X] in 

de praktijk blijkt deze verhouding bijv. bij het trekken 

van een cirkel goed te voldoen. 

Het nadeel van een iets lagere vertikale resolutie wordt 
ruim gecompenseerd door de hogere horizontale resolutie 
bijv. in grafieken. 


Met vriendelijke groeten, 
М.Р. Looi je, 
Paludanushof 22, 
3151 CM Hoek van Holland. 
Telefoon 01747-2920 


>= 
cr, сәл) 
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SCREEN CONSTANTS GRAPHIC MODES 





RAN POINTER MODE G MODE 1/2 MODE 1A/2A MODE 3/4 MODE 3A/4A MODE 5/6 MODE 5А/6А 
0080/81 ist byte screen RAM d 0 0 0 0 0 0 
0082/83 Points after header 10 10 10 10 10 10 10 
0084/85 ist free RAM byte CBO 638 860 1770 1984 5420 5548 
0088/87 Тор rolled area 0 130 130 440 450 F88 F88 
0088/89 End graphics area 0 628 508 176C 1516 5810 4998 
00BA/8B Start character area 10 628 518 пы 1526 5810 ARAB 
008С/80 End character area CAG 860 730 1984 1534 548 ACCO 
End archive area 
Q0BE/8F End screen CBO 638 740 1776 1554 5820 4000 
0090/91 End area used 0 748 748 BBC 1BEC 6988 6988 


Changing sode 


0092/93 Start archive area 0 740 628 1554 178€ ° 4000 5А10 
Start temp.save area i 





0094/95 — Nuaber of hor. blobs 0 48 48 A0 A0 150 150 | 
0096 Nuaber of graph. lines 9 4 Al 82 82 9 0 
0097 Nuaber of saved 0 9% 9% 18 18 2t 2 


graphic lines 


0098 Nuaber bytes/line d 18 18 2E 2Е E 5А 


All constants given are offset of top of screen address (@BFFF for a 48K machine) 


DAI FIRMWARE 


Do you have problems concerning certain matters which you believe are 
caused by DAI monitor 7 

Did you find some useful application of routines available in the 
firmware ? 

Maybe they are worth to be published. Please write or phone me. 

Most of the articles I published are based on your problems or 
questions. In any case, you will get an answer as soon as possible. 


Jan Boerrigter 
Fabritiusstraat 15 
NL-6174 RG Sweikhuizen 
tel. 04493/2093 
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SCREEN MEMORY MANAGEMENT 


This article describes the method used to organise the screen memory 
by the DAI-firmware. 

The handbook gives a lot of information about the several 

screen modes and the way they are fitted into the screen memory. 

The way of changing from one mode to another is not described very 
clear. 


In an ’all-graphic’ mode, the screen consists of: 


Al. Header. 
A2. Screen colour data. 
AS. Trailer. 


The header and trailer areas are blanking lines at the beginning and 
the end of the screen. 


In "split-graphics* modes, the screen organisation is as follows: 


B1. Header. 

B2. Picture area corresponding to the 
bottom part of А2. 

B3. Middle. 

B4. Character area. 

BS. Trailer. 

Ве. Archive area, containing the upper 
part of A2, which is not displayed 
in B2. 


When changing from split-mode to all-graphic-mode and visa-versa, the 
archive area is temporarily moved to the temporary save area, which 
starts at АЗ. 


When changing from all-graphics to split: 
Top of screen into temporary save area. 
Bottom part graphics shifted upwards. 
Top part graphics from temporary save area into archive area. 
Set up character screen. 


When changing from split to all-graphics: 
Archive area into temporary save area. 
Bottom part graphics shifted downwards. 
Temporary save area into top of screen. 


The annexed drawing shows tbe screen memory organisation in a 

diagram. 

The numbers at the right side of the lines are offsets from the address 
of the top of the screen (#BFFF for 48K). These values are stored in RAM 
pointers (addresses in separate columns) during the set-up of a 
particular screen mode. 

For each mode, these constants are retrieved from ROM. The annexed 

table gives all the constants as they can be found in ROM-bank 2 on 

the addresses 2Е050 — 2EOC2. Vectors to these constant tables are located 
on addresses 2ES9A - 2ESAS. 


(С) Jan Boerrigter — August, 1982 
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title 


author 
purpose date-calculations 
comment 


&30 
635 
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identification 
KALENDERALGORITMEN 


Peter Lelie 





REM ; Dipl.-Ing. Peter Lelie š 
REM ; D 4047 Dormaqen - 2015 В 
REM ; Wilhelm Busch Strasse 56 š 
REM ; Telefon: (02106) 46852 A 
REM $53333333535335335535 3 35 335 535 3353 
REM 

REM Stand: 15-Sep-82 

REM 

REM Kalenderalgorithmen 

REM 


REM Quelle: 
REM H. Spaeth, “Ausgewaehlte Operations- 
REM Research-Algorithmen in FORTRAN-IV’ 
REM Umgeschrieben in DAI-Basic von P. Lelie 
REM 
REM Anmerkungen: : 
REM Wenn das Datum des Ostersonntaqs bekannt ist, so 
REM koennen auch die Daten der uebrigen beweglichen 
REM Feiertage berechnet werden: Fastnacht lieqt 48 
REM Taqe vor, Pfingsten am 7. Sonntag nach dem Dster- 
REM sonntag. Himmelfahrt liegt am 10. Taq vor und 
REM Fronleichnam am 11. Tag nach dem Pfingstsonntag. 
REM 
REM Die in den Routinen verwendeten Parameternamen 
REM sind selbsterklaerend; ausserdem ist zu jeder 
REM Routine ein Kommentar vorhanden. Zur weiteren 
REM Verdeutlichung dient das Testprogramm fuer die 
REM Unterprogramme (Lines 600...999). 
REM 
REM :1:33333333533335335335333333333333333 3333333 55353 
REM 
CLEAR 200 
DIM WT$(6) 
FOR 1=0 TO &:READ WT$(ID?:NEXT I 
DATA Sonntag,Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Samstag 
PRINT CHR$(12) 
REM 
REM TEST DER DATUMSROUT INEN 
REM 

1=5:M1=5:J1=1980:REM 05-МАУ-ВО 
T2=15:M2=9: J2=1982:REM 15-SEP-82 
REM 
PRINT TAB(20)3T13"."3Mi3". "3313 ТАВ (40) 5 Т2; "Ма," "392 
PRINT 








—— Фф 











640 
642 
644 
650 


654 
660 
665 
670 
680 
690 
700 
705 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
999 
1000 
1001 
1002 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1095 
1100 
1110 
1120 
1130 
1200 
1201 
1202 
1210 
1220 
1230 
1240 
1250 
1252 
1260 
1270 
1280 
1290 
1500 
1310 
1320 
1330 
1340 


TAG=T1:MONAT=M1: JAHR=J1:GOSUB 1500: W1=WT 
GOSUB 1800: JT1=JT 

GOSUB 1000: JD1=JD 

TAG=T2: MONAT=M2: JAHR=J2: GOSUB 1500:W2-WT 
GOSUB 1800: JT2=JT 

GOSUB 1000: JD2=JD 

PRINT "WOCHENTAG"; TAB(21):WT$(W1) $ ТАВ (41) ; WT (W2) 
PRINT 

PRINT "JAHRESTAG"; ТАВ (20) ; JT1; TAB(40) 272 
PRINT 

PRINT "JULIANTAG"; ТАВ (20) ; JD1; ТАВ (40) ; JD2 
PRINT 

JJ-JD2-JD1 

PRINT "DIFFERENZ"; ТАВ (40) ; JJ 

PRINT 


` JD=JD1+JJ/2 


GOSUB 1400 . 
PRINT "DATUM DES TAGES"; ТАВ (20) : ID; " : "; TAB( 40) ; TAG; " . " 5 MONAT; " ." ; JAHR 
PRINT 

GOSUB 1800 

PRINT "DESSEN NUMMER IM JAHR";JAHR;" = :":TAB(40);JT 

PRINT 

GOSUB 1200 

PRINT "OSTERN IM JAHR ";JAHR;" :"  ТАВ (40) ; TAG; " . " МОМАТ;"." 
PRINT :PRINT :PRINT 

БОТО 999 

REM 3353353535 
REM SUBRDUTINE 
REM 

REM EINEM (SINNVOLLEN) DATUM DES GREGORIANISCHEN 
REM KALENDERS WIRD EINDEUTIG EINE NATUERLICHE ZAHL, 
REM DIE DER TAGNUMMER IM JULIANSCHEN KALENDER ЕМТ- 
REM SPRICHT, DERART ZUGEORDNET, DASS DIE DIFFERENZ 
REM DER ZWEI DATEN ZUGEORDNETEN ZAHLEN DIE ANZAHL 
REM DER ZWISCHEN IHNEN LIEGENDEN TAGE ERGIBT. 

REM 

REM ENTER WITH: TAG, МОМАТ, JAHR 
REM RETURN WITH: JD 

REM 

J= (МОМАТ--14) /12 

L=JAHR+J+4800 
JD-TA6-32075*14611L/4*3571 (МОМАТ-2-124.1)/12-34((1+100) /100) /4 
RETURN 


DATUM 
JUL FANTAGNUMMER 


REM FUER EIN VORGEGEBENES JAHR WERDEN MONAT UND 
REM TAG DES OSTERSONNTAGS BERECHNET. 


REM 

REM ENTER WITH: JAHR = JAHR FUER OSTERN 

REM RETURN WITH: MONAT, TAG = OSTERSONNTAG-DATUM IN JAHR 
REM 


GN= {JAHR MOD 1N +1 

IF ЈАНК<=1582 THEN 1350 

C=JAHR/100+1 

6С-(5%С) /4-12 

EC=(C-16-(C-18) /25) /3 

ED- (SRJAHR) /4-6С-10 
E=((113GN+19+CC-GC) MOD 30) +1 

IF (E-25 AND GN>11) ОК E=24 THEN Е-Еғі 
GOTO 1370 | 
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1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1500 
1501 
1502 
1510 
1520 
1530 
1540 
1550 
1560 
1565 
1570 
1580 
1590 
1595 
1600 
1601 
1602 
1610 
1620 
1650 
1540 
1550 
1660 
1670 
1700 
1710 
1720 
1730 
1746 
1750 
1760 
1770 
1780 
1790 
1795 
1800 
1801 
1810 
1820 
1850 
1840 
1850 
1860 
1870 
1900 
1910 
1920 
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ED=(5%JAHR) /4 

E=((119GN-4) MOD 30)+1 
TAG=44-E 

IF TAG<21 THEN TAG=TAG+30 
TAG-TAG*7-((EDETAG) MOD 7) 
IF TAG<=31 THEN 1440 
MONAT=4 
TAG=TAG-31 
GOTO 1450 
MONAT=3 
RETURN 
REM 5555333355533 
REM SUBROUTINE WT 
REM ' 
REM ZU EINEM VORGEGEBENEN DATUM WIRD DER 

REM ZUGEHOERIGE WOCHENTAG BERECHNET: 

REM WT=0:SONNTAG ... WT=b: SAMSTAG , 
КЕМ 

REM ENTER WITH: TAG, MONAT, JAHR 
REM RETURN WITH: WT 

REM 

L=MONAT+10 

M- (MONAT-14) /12+JAHR 

ИТ ((138(1-(1/13)812)-1) /5*TAG* 77451 (M- (M/ 100) 4100) /44M/400- (M/100) #2) MOD 7 
RETURN 
REM 5353535555515 
REM SUBROUTINE DJ 
REM 

REM EINER NATUERLICHEN ZAHL JD, DIE DER TAGNUMMER 

REM IM JULIANSCHEN KALENDER ENTSPRICHT, WIRD EIN 

REM DATUM IM GREGORIANSCHEN KALENDER ZUGEORDNET. 

REM 

REM ENTER WITH: JD - TAGNUMMER 

REM RETURN WITH: TAG, MONAT, JAHR - KALENDERDATUM 

REM 

L=JD+68569 0 e 
N=441/146097 

L-L-(1450971N*3) /4 

JAHR=40008 (L+1) /1461001 

L=L-14614JAHR/ 4+31 

MONAT=808L /2447 

TAG=L-2447 MONAT /80 

L=MONAT/11 

MONAT=MONAT +2-128L 

JAHR=1008 (М-49) +L+JAHR 

RETURN 

REM 5;3533553353533:3333353333333333335335535355 3553 

REM SUBRDUTINE JT 

REM | 
REM FUER EIN VORGEGEBENES DATUM WIRD DIE NUMMER ' 
REM DES TAGS IM ENTSPRECHENDEN JAHR BERECHNET 

REM 

REM ENTER WITH: TAG, МОМАТ, JAHR 
REM RETURN WITH: JT 

REM 

L=(MONAT+10) /13 

JT=TAG+3055% (MONAT+2) /100-24L-91 
JT=JT+(1—(JAHR- (JAHR/4) $443) /4+ CJAHR- CJAHR/ 100) #100+99) / 


100- (JAHR—- (JAHR/ 400) 4400+399) /400) 4L 





DATUM 
NR. DES WOCHENTAGS 


DATUM 
TAGNUMMER 


HUH 











1930 RETURN 
2000 REM 335355 
2001 REM SUBROU 
2010 REM 

2020 REM FUER EIN VORGEGEBENES JAHR UND DIE NUMMER JT 
2030 REM EINES TAGES IN DIESEM JAHR WERDEN DIE RESTLICHEN 
2040 REM BESTANDTEILE DES ZUGEHOERIGEN DATUMS, ALSO 

2050 REM MONAT UND TAG, BERECHNET (1900<ЈАНК<2100). 

2060 REM 

2070 REM ENTER WITH: JAHR, JT 
2080 REM RETURN WITH: MONAT, TAG 
2090 REM 

2100 L=0 

2110 IF (JAHR/4)14-JAHR THEN (51 
2120 K-0 

2130 ТЕ JT>S9+L THEN K-2-L 

2140 J-JTHK*91 

2150 MONAT=(J%100) /3055 

2160 TAG=J-(MONAT#3055) / 100 

2170 МОМАТ-МОМАТ-2 

2180 RETURN 


2199 REM SFIS 


ки Бари в В И а 9 кК а а а а со о а а а а а в вра а ааа 
339359995995 3 4 9 49 4 4 3 4 9 4) 4441 9 49 ) 44 4 


-j ав 


JAHR UND JAHRESTAG 
RESTLICHES DATUM IN JAHR 











MODE 7: 300 


0310 


0320 
0550 
0340. 
0350 
360 
370 








MODE 8: 0300 3E С , : | 
9510 ` 4 7 : | 
0220 2 > 43 : | | 
0330 Е | | 

0340 

0350 

0560 





These machine language routines will offer you MODE 7 ог MODE 8 
after CALLMH300. The screen will be initiated and the screen 
pointers will be adapted. From that moment on, BASIC will be able 
to use DOT,DRAW,FILL,SCRN,XMAX,YMAX... in the ULTRA-HIGH resolution. 
The normal SPLIT-mode is not possible,so if you want to return to 
TEXT-mode , use : MODE O,if BASIC will try to go to split-mode this 
will result in garbage on your screen. 

with many thanks to N.P.LOOIJE 
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identification 


title FASCINATION | | | 


author | contribution DAInamic France ((- | 





purpose EE Ee 


comment 





17000 MODE 0:POKE 475,32:PRINT CHR$(12):CLEAR 1000:DIM C$(15),T(64):PRINT " FASCINATION... "SPRINT :PRINT 
17001 PRINT * -Retour a ce вепи-------------- M." 

17002 PRINT * -Retour au programme principal:- Р." 

17003 PRINT " -Acceleratian:------------------ "SCHRÉ (136); " ." 

17004 PRINT * -Ralentissesent:---------------- *SCHRS C137); ." 

17005 PRINT * -Marche Avant:------------------ *SsCHRS (94); *," 

17006 PRINT * -Marche Arriere:---------------- *SCHRE CI400; *.* 


17008 FOR Ті-і TO 64: T(TZ)=13. LE NEXT 

17009 T(2)2T(2) 43. 8: T(B) ZT(B) 44.527 (16) TC 16): T (64) zT (64) 

17010 C$(0)z "Noir": C$ (1) s "Bleu Roi "1C$ (2) :"Rose":C$ (3) "Rouge" C$ (4) z" Kaki *sC$ (5) -" Vert *:C$ (6) sr Chair" 
17011 C$(7) 2*Mauve*: C$ (8) z"Bris" C$ (T) s" Azur ":C$(10)="Orange"sC$(11}="Rose Saumon* 

17012 C$(12)="Bleu Ciel *:C$(13)s"Vert Clair":C$(14)="Jaune":C$(15)="Blanc* 

17015 FOR Ті-0 TO 15:CURSOR 334121 INT(T2/8. 0) , 12- (TX. MOD 8) sPRINT ТІ; "="; CS (TL) : NEXT 

17020 POKE 475,95: CURSOR 0,12: INPUT " Couleur fascinante по 1";BZ:BZ=ABS(INT(BZ)):IF 81713 THEN 17000 
17021 PRINT :INPUT " Couleur fascinante no 2';NZ:NZ-ABS(INT(NZ)):IF NZ215 THEN 17000 

17022 PRINT :INPUT " Couleur fascinante по S"sMZ:MZ=ABS(INT(MZ)):IF MZ>15 THEN 17000 

17024 CURSOR 0,8:PRINT SPC(25):CURSOR 0,8: INPUT " Nombre de spirales "314: ТЕПЕ 

17025 IF 1-1 THEN 17030 | 

17026 1=1/2:1Е FRAC(Z)=0 THEN 17025 

17027 6070 17024 

17030 PRINT :PRINT : INPUT * Densite fascinante (1 a 10)"; DEZ 

17031 IF DEZ(1 OR DEZ?10 THEN 17000 4 
17032 KL=T(LIZ) /DER 

17033 MODE 6:1%=5:¥%=0:COLORG VX ВА NX МА | 
17035 LIXX=LITE (241. 258 INT(LT2/54) 1 SEINT(LIX/32) 40. SR INT (LIZ/16) 4INT(LIZ/B)-INT(LIZ80, 25) аа TEE KLz21KL/LTII 

17040 FOR Тігі TO LIYX STEP 2:DZ=TZSYMAX/LIYZ 

17045 FOR YZ=1 TO LIX% STEP 2:CCZ=VZSXMAX/LIXZ:RA=0 

17047 GOSUB 17055: NEXT: NEXT: Б0Т0 17070 

17055 FOR X=0.0 TO KL STEP 0. 1: WI-BZ:BXSNZ:NZ-MT:NZ-MZ: SZZRAS IN (X) sCZ=RZSCOS (X) 

17058 DRAW SX4CCZ,CXeDZ CL+CCL,-SZ+DZ ИЛ: КАН Сї+[01,01-57 CCX-S1,-CI«DX WI 

17060 DRAW -SZ«CC2,DX-CÀ CCZ-C2,52+0% WI:DRAM -CX4CCT,S24DZ SZ+CCX,CX+DI НА 

17065 RI-RISDET: NETT: RETURN 

17070 WAIT TIME IX:AZ=6ETC:IF AZ=0 THEN ON FZ GOTO 17098, 17099 

17080 IF AZ=16 THEN Ғіз1: 6070 17090 

17082 IF 84-17 THEN FZ-2:80T0 17090 

17084 IF AZ-18 THEN IXSIZ-1:IF ГАСсО THEN IZ=0:6010 17070 

17086 IF 84-19 THEN 14-1444:60ТО 17070 

17088 IF AX-ASC("P*) THEN RETURN 

17090 IF AT-ASC( M") THEN 17000 

17095 6070 17070 

17098 COLORG VZ BZ NZ MI:IX-NZ:MI-BZ:BA-NT:NZ-21:60T0 17070 

17099 COLORG VZ BX NZ М1: 11=М1: МУМ: МАВ: В1=71: 6070 17070 
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NEW NEW NEW NEW NEW NEW NEW NEW NEW NEW NEW 








SUPER NOISE GENERATOR € SmNG) 








now 
Зооп available from DAlnamic Belgium, a sound extention for 
your DAI. 





By adding a simple PC-board (dimensions 9 x 5 CM), containing 
4 IC's, 17 resistors, 9 condensators, and connecting 12 wires 
into the DAI, you can make your DAI more attractive. 












With " SNG " is it possible to create new noise effects, 
going from a realistic explosion to a starting rocket, 
and a lot more of unexpected effects. You can use this SNG to 
make your games and animations more attractive. 





All these new noise commands are controlled by the normaly 
not used NOISE X 1 to NOISE X 7 volume selects. 


The new commands are; 


- NOISE X O : SNG reset,noise off 

- NOISE X 1 : continuous, low noise 

- NOISE X 2 : continuous, variable noise (sweep) 
- NOISE X 3 : continuous, high noise 

- NOISE X 4 : high, short decay noise 

- NOISE X 5 : high, long decay noise 

- NOISE X 6: low, short decay noise 

- NOISE X 7 : low, long decay noise 

- NOISE X 8 to NOISE X 15 : normal DAI noise 









It is also possible now, with a simpel POKE, to switch on and off 
the sound from your cassetterecorder, ( music, explanations, 
talk, and so on ), and play this back through your TV set. 


NOTE: 


FOR ALL THESE MODIFICATIONS THERE ARE NO CHANGES NECESSARY 
ON THE DAI PC-BOARD, NOR SPECIAL SOFTWARE REQUIRED 











COPYRIGHT в. CORSWANDT / W. DE WINTER 


` | price : 2200 Bfr (complete kit) 


1982 
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HOW TO EXTEND THE DAI-BASIC 


=g================= É an en 
Ze e EE SS ШШ E E e EE ШЫ ШШ TS EE ST 


Several times I have been asked if it is possible to add some useful 
commands to the BASIC inside the DAI-ROM's. 

Well, to start with, it is not possible simply to add commands to the 
existing ones. Then the ROM contents must be changed on several 
locations, including shifting of program parts to other areas. 

So let us forget about this (very nice) idea, and let's see if 
another possibility exists. 


First of all, we have to deal with two problems: i 
1. Where the additional software (machine language routines) can 
be placed. 
2. What kind of routines are required. 


Let us start with the memory problem. 

1. The socket for the math.chip is not available for other purposes 
because it is exclusively wired for the math.chip AMD9511. 

2. An additional ROM can be placed om a small printed circuit board 
on the X-bus. Then the address area F700-F7FF can be used without 
big problems. But this solution has already been used for the 
Memocom digital recorder. ` 

5. The address range F900-FAFF is not used. Theoretically,it could 
be possible to use it for additional ROM on the X-bus (evt. 
combined with the Memocom КОМ). 
The address-decoder IC45 (see DAI-schematics sheet 5) has outputs 
for decoded chip select signals F9 and FA. These outputs are not 
used and not wired, but could be used with some additional wiring. 
The X-bus has 2 not-used pins, which could be available for this 
purpose. 

4. Last possibility: Locate the machine language routines in RAM. 


Now the software part of the BASIC extension. 

1. Let us follow the method Memocom used for the MDCR. New BASIC 
commands are written in a REM-statement in the BASIC program. 
Before this REM-statement, a CALLM command is written, calling a 
routine which checks the REM-statement for a known (new) BASIC 
command. If found, this command is executed by its appropriate 
execution routine. 

2. So we need: 

a. A routine, which tests if the text in a REM-statement is а 
(new) BASIC command. 

b. А list in which all new commands are written. 

c. Execution routines for this new commands. 


How will it look like ? 
In the BASIC, we will find for instance: 


10 CALLM (TESTREM): REM COUNT 


"TESTREM* is the address of the m.l.routine for testing the REM- 
statement; COUNT is one of our new BASIC commands. 


’TESTREM’ will perform: 
Test if the next command on the BASIC textline is "BEN: (token 
A93 registerpair BC points to it). If not, the routine can be 
aborted. 
If it is a REM-statement, the string in this statement must be 
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checked. In the Тех! 1 пе, direct after the token, follows the 
length of the string and then the string itself. 

The string must be compared wiith a list of the new commands 
If found, the execution routine belonging to this command must 
be executed. If not found, a syntax error can be displayed 
(via a jump to address DAOR). 


So we need a table with the new BASIC instructions. The format of the 
table is as follows: 


TABLE: <length> <string> <address>? 
e.g. for *COUNT’: 05 length 

43 с 
4Е о 
55 u 
4Е м 

t 54 T 
XXXX Addr execution routine 
OO End of table 


The "end of table’ byte is required to let the routine know that all 


strings have been checked, and the command is not found. F 


Again everything in a flow diagrams: 


10 CALLM (TESTREM): REM COUNT 


| 


’TESTREM’ : Is next statement "REM? —— No: Abort 


Check string with ” TABLE’ —— Not found: SYNTAX ERROR 


| 


Get address execution routine 


| 


? COUNT”: Perform routine 


As you see, this is just some philosophy about "how to do it’. Lack of 
time made it impossible to write a sound program. This 15 up to you, 
if you urgently need extension of the DAI-BASIC. 

And don't forget to publish the results !! 


Back to BASIC a4 





(C) Jan Boerrigter — July 1982 


o ВЕ E р 


„Ши оо 


DAInamic 12 - 265 





program identification 


title ° — AUDIO CASSETTE MARKER 


author ° _W.De Winter Е W.Hermans 


To indicate the end of files on audio tapes. 
purpose 


(recorder should be in record position) 
start with CALLM H400, exit by hard reset. 
comment Б 4 ү 


0400 3 DO ZP 11 
0410 ЗЕ 2 FD 
0420 3 52 ЗА 
0430 2 2 43 
0440 : z C2 





IF YOU DON'T KNOW HOW TO GET THIS MACHINE LANGUAGE ROUTINE WORKING 
IN YOUR DAIpc, PLEASE READ ON .. 


WE WILL GIVE YOU 4 WAYS OF ENTERING ML INTO MEMORY.ONCE THE PROGRAM 
IS THERE, AND WELL RUNNING, WE CAN SAVE IT ON CASSETTE ОК DCR. 


1.POKE IN BASIC COMMAND-MODE 
THIS IS NOT THE MOST CONVENIENT WAY, BUT IT IS OK FOR VERY SHORT 
ROUTINES. (SEE MEMORY DUMP ABOVE) 

POKE #400, #E5 

РОКЕ #401,#С5 

POKE #402, #05 


РОКЕ %44Ғ,%С9 


2.POKE IN BASIC PROGRAM-MODE 
10 POKE #400, #Е5 
20 POKE #401, MACH 


500 POKE #44F, #C9 


THIS IS ALREADY ВЕТТЕК, НЕ CAN SAVE OUR BASIC PROGRAM ON CASSETTE 
BEFORE EXECUTING THE ML-ROUTINE. 


NOTE : DON'T FORGET TO ADAPT THE HEAP-POINTER : 
POKE #29C, #5: CLEAR 1000 


266 - DAInamic 12 





: 
d 
i 





3.POKE IN BASIC PROGRAM-MODE FROM DATA-LINES 
.THIS IS A VERY CONVENIENT WAY IF THE BLOCK OF ML IS CONTINUOS , AS 
IN QUR ROUTINE. . 

10 REM IMPLIED INTEGER ! 

20 FOR X=#400 TO #44F 

30 READ V:POKE X,V 


40 NEXT 
100 DATA #Е5, #05, #05, #5, #F3,......-. 
140 DATA ..... раби #44, #04, НСО 


TAKE THE SAME PRECAUTIONS : SAVE THE BASIC PROGRAM ON TAPE BEFORE 
"RUN’, AND ADAPT HEAP POINTER. 


4.ENTER THE ML IN UTILITY 
TYPE : UT <RETURN> 
TYPE  : 5400 <SPACE> (THE OLD CONTENTS OF #400 
ARE DISPLAYED) 
TYPE : ES 
TYPE : <SPACE> (#401) 
TYPE : CS -— 
ETC. UNTIL 44F = C9 
CHECK THE CONTENTS WITH DISPLAY: 
D400 44F <RETURN> 


SAVE ON TAPE BEFORE GO OR CALLM#400: 
W400 44F 400 44F AUDIO CASSETTE MARKER e 


THIS IS THE TITLE ON CASSETTE/DCR 


GOTO 100:REM LINES / F.H. DRUIJFF 1/82 

IF P-O THEN 050-0:1Е Q<O THEN P=P-@:0=0:T=T+1:IF T=4 GOTO 110: RETURN 
ТЕ P=335 THEN Q=0+D: IF 02255 THEN Р-Р-0+255:0-255: RETURN 

IF 050 THEN P=P+D: IF P>335 THEN 6=Р-555: P=335: RETURN 

IF 0-255 THEN Р-Р-0: IF P«O THEN О=6+Р: Р=0 

RETURN 


P=A: Q=B: D=4: GOSUB 20: A=P: B=0 
P=X:Q=-Y¥:D=5:GOSUB 20: X=P: Y=0 


DRAW A,B X,Y 21:60T0 70 
MODE А: СО ОКВ О 1 3 14:A=0:B=255: Х<15: Y=235:60T0 70 


-IF GETC=0 GOTO 110:END 
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program identification 


EFFICIENT CIRCLE-DRAWING 


F.Druijff 


| circle-routines for different applications 





ZA zz PFP PROGRAMMEER - TECHNIEKENZ&&&««4«« 


In het nu voor U liggende artikel wil ik nader ingaan op het tekenen van cirkels. 
Bij veel programma’s zijn cirkels of ellipsen nodig еп het tekenen hiervan levert 
soms nagal wat problemen op. Er zijn echter vele wegen die naar Rome leiden. 


Vantevoren wil ik nu reeds stellen dat het niet zo is dat er een beste methode 
bestaat. De ene methode programmeert snel en werkt traag de andere is lastig 

te programmeren maar is snel. 

En dan zijn er nog varianten die veel of weinig geheugen vragen. 

Maar laten we beginnen; de cirkel die we wensen te tekenen zal steeds een cirkel 
zijn die het middelpunt heeft in het beeldmidden en een straal van 100. 

De meest voor de hand liggende manier om deze cirkel te tekenen: 


10 MODE 6 
20 FOR I=0.0 TO 2.ОЯРІ STEP PI/180.0 
30 DOT XMAX/2+100KSIN(I),YMAX/24+COS(I) 22:NEXT 


We weten dat er 180 graden in PI radialen zitten dus nemen we als stapgrootte 
PI/180, precies een graad.Als we echter RUN geven blijkt dat onze cirkel gaten 
heeft. We kunnen natuurlijk de stapgrootte verkleinen maar dit gaat ten koste 

van de snelheid dus moeten we het wel verantwoord verkleinen. 

We berederen , als de cirkel een straal heeft van honderd dan is de omtrek 200%РІ 
En dat is ruim 628, dus zal de stapgrootte zo moeten zijn dat elk van deze punten 
aan bod komt (еп niet meer dan eens). Hieruit volgt stapgrootte is ?XPI/200XPI 
dus РІ/515 ofwel 0.01 dus nog eenvoudiger 1/straal. | 

Eventueel om bij ongelukkige afrondingen goed te zitten : 0.9/straal. 


Er zitten nog wel meer punten ter verbetering in het programma. 
Als eerste noem ik het feit dat werken met een variabele sneller gaat dan met 
een constante, dus moet : 


10 MODE 6:ҒОН I=0.0 ТО 2.0XPI STEP Р1/315.0 
20 R=100.0:DOT XMAX/Z*RXSIN(ID),YMAX/2*RXCOS(I) 22:NEXT 


sneller werken, maar ik maak elke keer В gelijk aan honderd en го gaat mijn toch 
al minieme winst verloren. Wel essentieel is het feit dat ik de DAI ruim 600 
таа! XMAX en YMAX laat opzoeken en die dan vervolgens elke keer door twee deel. 
We krijgen na deze verbetering het volgende programma: 


10 MODE 6:МХ-ХМАХ/2.0: MY: YMAX/2. 0: R2100.0 і 
20 FOR I-O TO 2.0ЖРІ STEP 1.0/R:DOT MX+R¥SIN(I) „MY+RKCOS(I) 22: МЕХТ 
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Ons valt nu op dat er пи XMAX/2.0 staat in plaats van XMAX/2 zoals hiervoor. 
Dit komt omdat de DOT instructie nu eenmaal integers verwacht en dus constanten 
als deze 2 gewoon 2 laat en er niet 2.0 van maakt.Bij de verwerking echter wordt 
de XMAX/2 wel omgezet in floating point om bij de RKSIN(I) geteld Ғе kunnen 
worden; het resultaat wordt dan weer integer gemaakt om "gedot" te kunnen worden. 
Het ligt voor de hand om het programma nu te gaan versnellen door alles in 
integer te zetten. De eerste poging daartoe mislukt echter, omdat SIN(I) en 
COS(I) nu vrijwel altijd nul zijn.Daarbij zal ook de loopariabele I steeds nul 
blijven. Eerst even nadenken en komen we op het volgende programma: 












IMPINT 
10 MODE 6:MX2XMAX/2: MY-YMAX/2:R!-100.0 

20 FOR I!=0.0 TO PI+PI STEP 1.0/R':X-R'ESIN(I')?:Y-R!ECOS(I!) 
30 DOT MX+X,MY+Y 22:NEXT 










En dit werkt inderdaad sneller. Is het U opgevallen ? Juist PI+PI is sneller dan 
2.0X*PI maar dat zet hier geen zoden aan de di jk, het combineren van regel 20 en 
30 zal wel iets uitmaken. 









Maar ons programma blijft toch traag, logisch we laten 628 keer een sinus en 
een cosinus uitrekenen. We bedenken dat linker en rechterdeel elkaars spiegel- 
beeld zijn en komen zo tot: 










10 MODE 6:MX-XMAX/2: MY-YMAX/2:R!7100.0 
20 FOR І!-0.0 TO PI STEP 1E-2: X-R' XSIN(I!'):Y-COS(I!) 
50 ШОТ MX+X,MY+Y 22:DOT MX-X,MY+Y 22:NEXT 








Dit blijkt goed en vlot te werken en dan willen we vanzelfsprekend verder ver- 
snellen door andere symmetrieen ook te gebruiken. 









We gaan in regel 20 maar tot PI/2.0 en regel 30 wordt 
30 ПОТ MX+X,MY+Y 22:DOT MX+X,MY-Y 22,DOT MX-X,MY*Y 22:DOT MX-X,MY-Y 22:NEXT 






We worden nu pas goed enthousiast en gebruiken ook diagonalen als symmetrieas 
We krijgen: 





10 MODE 6:MX-XMAX/2: MYsYMAX/2:R!-100.0 
20 FOR I!-0.0 TO PI/4.0 STEP I/R! : XR! £SINCI  ) : YsR! YCOS(I !) 
50 ШОТ MX+X,MY+Y 22:DOT MX+X,MY-Y 22:DOT MX-X,MY+Y 22:DOT MX-X,MY-Y 22 


40 DOT MX+Y,MY+X 22:DOT MX+Y,MY-X 22:DOT MX-Y,MY+X 22:DOT MX-Y,MY-X 22:NEXT 







En alhoewel dit Programma redelijk snel werkt zal het programmeren ervan velen 
(terecht vaak) weerhouden om het zo te doen. 





We gaan eens nadenken of we die trage sinus en cosinus wel nodig hebben. 
We kunnen vaststellen dat inderdaad een van de twee omzeild kan worden maar dat 
dit vermoedelijk toch weer niet simpel is te programmeren. 












We slaan een nieuwe weg in. De stelling van Pythagoras is de basis voor een 
nieuwe aanpak. Redenerend vanuit het middelpunt is een punt op de cirkel met 
coordinaten x en y zodanig gelegen dat х?2+у?2 gelijk moet zijn aan straalf2. 
En aangezien we bij elke x-waarde twee y-waarden nodig hebben beginnen we met 






X M пеши 














10 MODE 6: XM=XMAX/2: YM=YMAX/2:R=100 
20 FOR X=-R ТО R:Y=SOR (RXR-XXX) 
зо DOT MX+X,MY+Y 22:DOT MX+X,MY-Y 22:NEXT 
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Dit blijkt echter niet correct te werken. Links еп rechts zijn vele punten 
overgeslagen, dit is logisch bij deze x-waarden zijn meerdere y-waarden. 

Als we echter niet alleen gebruik maken van een boven/onder-symmetrie maar ook 
van een links/rechts symmetrie? Nee, we kunnen dat wel doen maar dan zullen 
nog steeds links en rechts punten ontbreken. 

We zien dat horizontaal alles juist getekend is, dus als we de cirkel voor de 
helft op bovenstaande manier tekenen en de andere helft verkrijgen door ver- 
wisselen van x en y coordinaten zijn we er. № 

Regel 10 blijft gelijk 


20 РОК I--R/2 TO R/2:J=SQR (RIR-IXI) 
30 DOT MX+1,MY+J 22:DOT MX4I,MY-J 22 
40 DOT MX+J,MY+I 22:DOT MX-J,MX*I 22:NEXT 


Maar ook dit werkt niet bevredigend.We denken weer na: halve cirkel betekent 
niet van -R/2 tot R/2 maar van -45 tot +45 graden om het zo te zeggen. 

Dit betekent dat we de grens moeten leggen bij + of - 70 en niet 50. Deze 70 
wordt gevonden (voor andere cirkels nodig) door de straal van de cirkel te delen 
door wortel van 2.Maken we nu ook gebruik van symmetrie komen we tot: 


10 MODE 6:MX=XMAX/2:MY=YMAX/2:R=100 

20 FOR 150 TO R/SGR(2) : JEGQR (REXR-IXI) 

50 DOT MX+I,MY+J 22:DOT MX+I,MY-J 22: ПОТ MX-I,MY+J 22:00 
40 ПОТ MX+J,MX+I 22:00Т MX+J,MY-I 22:DOT MX-J,MY+J 22: 


Dit programma werkt snel vooral op de machines zonder math-chip duidelijk een 
verbetering maar ook weer lastig te programmeren.Zeker voor kleine cirkels 
zijn vorige methodes net zo goed zo niet beter. 

Viel U trouwens ook op dat ik RXR doe en niet R127 Het is in ieder geval snel- 
ler en werkt tenminste ook bij negatieve getallen. 


We denken weer eens wat verder na over ons probleem. Als we nu meerdere cirkels 
moeten tekenen zal het waarschijnlijk de moeite lonen de sinus en cosinuswarden 
op te slaan in een array en die dan telkens weer te gebruiken. 

Voordelen zijn evident: sneller de bedoelde waarde beschikbaar eventueel al 
vermenigvuldigd met de straal en omgezet in integer.Zijn de stralen verschil- 
lend kan er bij iets kleinere straal toch nog wel wat tijdwinst geboekt worden, 
is de straal minder dan de helft kunnen we ook arrayelementen overslaan en dan 
nog grotere winst boeken. 

De nadelen zijn jammer genoeg ook aanwezig: we zijn een aanzienlijk stuk geheu- 
gen kwijt (waarvan meer dan de helft nutteloos gevuld met nullen) en we moeten 
wachten totdat de tabel klaar is. Toch maar еепв proberen. 


10 MODE ба: СЕВК 8000:DIM X(3,159),Y (3,159) 

20 MX=XMAX/2:MY=YMAX/2:R!=100.0 

50 FOR A!=0.0 TO FI+FI STEP PI/316.0 

40 X=REKSIN(A!) : X=MX+X: Y=R!¥COS(A!) : Y=Y+MY 

30 X(P,G)=X:¥(P,@)=¥:0=0+1 

60 IF Q=159 THEN 0=0:Р=Р+1:РКІМТ P 

70 NEXT: MODE 6 

80 РОВ P-O TO 3:FOR 050 TO 158:DOT Х(Р,0),Ү(Р,0) 22:NEXT:NEXT 


Opmerkingen bij dit programma: de PRINT P is overbodig en dient alleen als 
indicator, we gebruiken hier een twee dimensionale array voor X en een voor Y 
dit is beslist sneller dan een drie dimensionale array. Zorgt er trouwens alti jd 
voor om de indices van een array altijd integer te laten zijn; opzoekti jden wor- 
den tot viermaal zo lang als U floating point gebruikt. 


Het ligt vvor de hand om de verbeteringen van zoeven nu ook op dit programma - 
los te laten. D.w.z. slechts een kwart van de gegevens uitrekenen en de punten 
vinden door weer spiegelingen toe te passen. 

Het onderstaande programma doet dit en werkt ook de +/- nog eens slim af. 
bestudeert U het maar eens en controleer de werking. 
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10 MODE &A:CLEAR 8000:DIM X(159),Y(159) 

20 «(| MXzXMAX/2:MYzYMAX/2:R!2100.0 

30 FOR A!=0.0 TO PI/2.0 STEP PI/316.0 

40  X(G)-R'ISIN(A! 2: Y (O -R!XCOSCA!) 20-01: NEXT 
30 MODE 6 


60 FOR 0-0 TO 159:FOR M--1 TO 1 STEP 2: РОК N--1 TO 1 STEP 2 


70 ПОТ МХ+МЖХ (0), МУ+МЖҮ (0) 22:NEXT: NEXT: NEXT 


Als volgende stap kunnen we natuurlijk het opbouwen van de array mbv de 
methode Pythagoras doen maar dat laat ik aan de lezer over. 


.We kunnen nu nog denken aan het niet gebruiken van de sinus en cosinus maar 


een benadering daarvan. Zie hiervoor nummer 10 het artikel van T. Berkx, maar 
bedenk wel dat deze methode alleen sneller is voor machines zonder math.chip. 
Dit is de reden dat ik het niet uitgewerkt heb. 


De volgende mogelijkheid heb ik ook niet uitgewerkt maar zal zeker voor kleine 
cirkels goed bruikbaar zijn: Geef de benodigde waarden op in een aantal БАТА” 5 
of lees ze in vanuit een array. Dit laatste zal alleen voor MDCR en floppy be- 
zitters interressant zijn. 


Nu tot besluit wil ik de cirkel wel eens echt snel tekenen. 

We zullen dit doen door niet meer puntje voor puntje de cirkel te tekenen 
maar steeds kleine lijntjes te tekenen.De punten die verbonden moeten worden 
kunnen we op een van de hiervoor besproken methodes bepalen. 


10 MODE 6:MX=XMAX/2:MY=YMAX/2:R!=100. 0: ХО=МХ: YO=MY+100 
20 FOR І!-0.0 TO РІЗРІ STEP PI/15.0:X=R!SSIN(I!)s YsR! COS (Т!) 
30 DRAW ХО, YO MX+X,MY+Y 22: ХО=МХ+Х: YO=MY+Y: NEXT 


Vindt U dat de cirkel te hoekig wordt dan dient U de STEP aan te passen. 

Het kan nodig zijn iets meer dan rond te gaan omdat anders het laaste lijntje 
niet meer getrokken wordt. 

Deze methode kan dan weer gecombineerd worden met het uit een array lezen van 


de gegevens en zo bereiken we een snelwerkende maar lastig te programmeren me- 
thode. 


We krijgen nu het volgende programma: 


10 MODE 6:CLEAR 2000: MX=XMAX/2:MY=YMAX/2:R!=100.0:DIM X(30) „У C30) 
20 FOR A!=0.0 ТО 2.06 STEP PI/15.0 

ЗО X=R!#SIN(Añ!): X (P) =МХ+Х: YER! XCOS (CA! 2 2 Y CP) xMY*Y: РЕР+1 : NEXT 

40 FOR I-O TO 29:DRAW X(I).Y(I) Х(1+1) „У(1+1) 22: МЕХТ 


Zelfs aan dit programma zijn nog piepkleine zaken bij te schaven: twee varia- 
belen X en Y kunnen door een vervangen worden.Inplaats van nieuwe variabele I 
kunnen we P gebruiken, het komt echter leesbaarheid niet ten goede en maakt 
niet uit voor snelheid alleen voordeel voor geheugen (8 bytes). 

Het combineren van regel 20 en 30 zal wel iets uitmaken in snelheid. 


We hebben het al de ti jd gehad over cirkels met straal 100, kleinere cirkels 
kunnen soms beter op een van de eerder besproken methodes behandeld worden. 
Vervolgens wil ik nog opmerken dat als we de hele cirkelschi jf willen hebben 
we niet een stralenbundel vanuit het middelpunt naar de rand moeten tekenen 
want dan krijgen we door afrondingen zeker bij grote cirkels punten die niet 
meegenomen worden. Remedie hiertegen is vanzelfsprekend het verkleinen van de 
stapgrootte (bestaft met langere werktijd) of en dat is veel beter door lijnen 
van rand tot rand te trekken. 

Deze lijntrekkerij moet dan wel horizontaal geschieden en niet vertikaal. 

Dit vanwege de beeldopbouw bij de DAI. Ik laat het aan de lezer over dit te 
programmeren. 


Frank H. Drui jff 
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КЕМ 
КЕМ 
КЕМ 
КЕМ 
КЕМ 
КЕМ 


DESSIN - DRAWING - 16 COLORS * 
you can change the messages ; they are all in line 60 * 
vous pouvez conserver une image de Та maniere suivante : * 
you can save the picture with following procedure : Х- 
1) BREAK, 2) UT*RETURN, 3)W63B8 SPACE BFFF SPACE NAME OF FILE * 
pour relire - for reloading : 1) MODE 5A 2) UT+RETURN 3) R+RETURN * 
REM * move without drawing : select same color as the background * 
REM * deplacement sans trace : selectionner la couleur du fond * 
REM * to reveal your position - pour connaitre votre position : "S" * 
COLORT 15 0 0 0:MODE 5A:COLORG O 1500 
PRINT CHR$(12);:FOR 1%-0.0 TO 9.0:FILL IX*16411,0 I%*16+20,9 1% 
PRINT I%;" ";:NEXT:PRINT " "; 
FOR 12=10 то’ 15:FILL I%*16+11, 0 12#16+20,9 1% 
PRINT CHR$(I%+55);" ";:NEXT 
PRINT :PRINT "TRES GROS = T, GROS = G, MOYEN = M, PETIT = P, SITUATION = S" 
G=GETC: IF G<16.0 THEN 70 
G=16.0 THEN Yl=Y1+1.0:GOSUB 5000: GOTO 70 
G=17.0 THEN Ү1=Ү1-1.0:60508 5000:GOTO 70 
G=18.0 THEN X1=X1-1.0:GOSUB 5000:60Т0 70 
G-19.0 THEN X1=X1+1.0:GOSUB 5000:60T0 70 
G<48.0 THEN 70 
G<58.0 THEN C=G-48.0:GOTO 70 
G<65.0 THEN 70 
G<71.0 THEN C=G-55.0:GOTO 70 
G=84.0 THEN T=60.0 
G=71.0 THEN T=10.0:GOTO 70 
G=77.0 THEN T=5.0:GOTO 70 
G=80.0 THEN Т-0.0:0070 70 
G<>83.0 THEN 70 
С1ЕС: IF C=15.0 THEN C=0.0:60T0 300 
C=15.0 
GOSUB 5000:WAIT TIME 50:C=C1:GOSUB 5000:60Т0 70 
IF X1+T>XMAX THEN X1=XMAX-T 
IF Y1+T>YMAX THEN Y1=YMAX-T 
IF X1<0.0 THEN X1=0.0 
IF Ү1<10.0 THEN Y1=10.0 
FILL X1,Y1 X1+T,Y1+T C 
RETURN 
REM * author : FRANK WITTENDAL * 


ЖЖЖ YX 3 3 3 ¥ 


REM * BIRD - OISEAU - VOGEL * 
IX-RND(70.0)*INT(RND(2.0)) *RND(4.0)48.0 

FOR Ј=1.0 TO 15.0- INT(I€/5.0) 

ENVELOPE 0 4,2;7,3;10,2;15,2;14,4;12,5;8,10;0 
ENVELOPE 1 4,2;8,;15,10;0,10;15,10;0,10;0 
SOUND 0 0 15 0 FREQ(1000.0) 

SOUND O 1 13 1 FREQ(2000.0) 

SOUND 0 O 15 2 FREQ(5000.0) 

WAIT TIME IX 

NEXT 

SOUND OFF :WAIT TIME INT(RND(50.0)*INT(RND(2.0))):GOTO 110 
REM * author : FRANK WITTENDAL * 
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program identification 


title 


author 


Groeten uit Belgie 
R.Rens 


purpose Illustrates Belgium national food 


comment Explaines why some of us are so heavy... 


10 
100 
110 
120 
1000 
1010 
1100 
1110 
1200 
1220 
1900 
2000 
2010 
2100 
2110 
2150 
2200 
2210 





-, В “а до“ 
САН ово ПАЛАС Bean, 


REM FRIT 

REM INIT 

К0=0:К1=8:К2=14:К3=15 

MODE SA:COLORT KO Ki К2 K3:COLORG KO Ki K2 КЗ 
FOR Х=0 TO 110: DRAW 100,0 2%Х,210-Х/2 K1:NEXT 
GOSUB 2000:GOSUB 3000 

FOR X=0 ТО SO:DRAW 150-X,0 230-X,170 KO:NEXT 
FOR X=0 TO S0:DRAW 100,0 180-Х,170-Х K1:NEXT 
FOR X=0 ТО 52:DRAW 50+X,0 X,220 KO:NEXT 

FOR X=0 TO 80:DRAW 100,0 60+Х,190-Х К1: МЕХТ 
BOTO 1900 

REM FRIT ROUTINE 

FOR AANTAL=1 TO 25 

REM RND X Y GROOTTE FRIT + ONDERBRENS 
X1=70+RND (100) :X2=&0+RND (100): IF 20>ABS(X2-X1) GOTO 2110 
Y1=70+RND (120) : Y2=70+RND (120) IF 20>АВ5(Ү2-Ү1) THEN 2150 
DM=6:REM HOE NU TEKENEN ? 

FOR DIKTE-O TO DM: DRAW X1,Y1+DIKTE X2,Y2+DIKTE K2:DRAW X1+DM, Yi+t 





DIKTE X2+DM, Y2+DIKTE K2 


2220 





% 2500 
: 2900 
2990 
3000 
3010 
3020 
| 3090 
% 3100 
5110 
5120 
3900 
3990 











DRAW X1+DIKTE,Y1+DM X2+DIKTE, Y2*DM K2: DRAW X1+DIKTE,Y1 X2+DIKTE, 


Y2 Ка: NEXT 


DRAW X1,Y1 X2,Y2 Кі 

NEXT 

RETURN 

REM MAYONAISE EN GEENE SALAD DRESSING ZENNE! ! 
REM ?ELLIPSKOMBINATIES 

FOR AANTAL=1 TO 5 

Az2:Bz1: XR=100+RND (60) e YR=120+RND (30) 

FOR XD=0 TO 10 

YD=AXSOR (100-Х03Х)) e DRAW XR+XD,YR+YD XR+XD, YR-YD КЗ 
DRAW XR-XD,YR*YD XR-XD, YR-YD К5:МЕХТ 

NEXT 

RETURN 


ОООООООООООООО 
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PAGE 01 


002 
005 
004 
005 
ооё 
007 
008 
009 
010 
011 

012 
O13 
014 
015 
016 
017 
018 
019 
020 
021 

022 
023 
024 
025 
026 
027 
028 
029 
озо 
O31 

032 
O33 
034 
035 
056 
057 
038 
039 
040 
041 

042 
045 
044 
045 
046 
047 
048 
049 
050 
051 

052 
055 
054 
055 
056 
057 
058 
059 
обо 
061 
O62 
063 
064 


B200 
B201 
B202 
B203 
B205 
B207 
вгоа 
B20B 
B20E 
B20F 
B210 
B213 
B214 
B215 
B216 


B219 
В21а 
B21B 
B21C 


B21D : 


B21F 
B222 
B225 


HARDCOPY MODE 0 


Hardcopy Mode 9 V1.5 26.07.82 


213304 
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ЖЖЖЖЖЖЖЖЕЖЖЕЖЖЖЖЕЕИЖЖЖЖЖЕЖЕЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖЕЖЖЕЖЖЖЖЖЖ 


Hardcopy Mode O 


Durch druecken der Taste <TAB> wird eine 
Hardcopy des Screen erstellt CInterrupt 7 
auf #B200) 


Ein direkter Aufruf ist moeglich durch 
KCALLM #8219 


Bei saemtlichen Zeichen wird Bit 7 
geloescht. Fuer Steuerzeichen (ASCII<#20) 
wird ein Blank gedruckt. 


Die Druckzeit (EPSON MX-80) betraegt 
circa 30 Sekunden. 


КЖЖЖЖЖЖЖЖЖЖЖЯЖЖЖЖЖЖЖЖЕЖЖЖЖЕЖЖЕЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


Rolf Leuenberger 
Muelinenstr. 27 


CH-3006 Bern 


Tel: 031/43’ 58: 22 


9€ ЗЕ ЗЕ 3€ 3€ 3€ 3€ 3€ 3€ ЗЕ 3€ 3€ зе ЗЕ 3e ЗЕ 3€ 3€ 36 96 зе ЭБ 3€ 3€ зе ЗЕ Зе ЗЕ 


* 
x 
* 
* 
x 
* 
* 
Ж 
x 
x 
x 
x 
* 
* 
* 
* 
* 
* 
* 
* 
* 
D 
Ж 
Ж 
x 
x 
* 
* 


ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖХЖЖЖЖЖЯЖЖЖЖХЖХЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


KLIND EOQU #02BA 


VEC7 EQU #D9A9 
SENDñ EQU #0094 Schicke Char in A nach RS232 


окв #B200 


PUSH PSU 
PUSH B 
PUSH H 
MVI А,9 TAB—Char acter 
MVI B,4 Zaehler 
LXI Н, KL IND 4 Byte Circular Buffer 
SRCTAB CMP M Suche TAB-Char im Buffer 
CZ НСОРУ 
INX H 
DCR B 
JNZ SRCTAB 
POP H 
POP B 
FOP PSW 
JMP VEC7 
HCOP Y PUSH PSW 
PUSH B 
PUSH D 
PUSH H 
MVI ëlo Ueberschreibe TAB-Char 


H, 
CALL PRTCR 
CALL — PRTLIN Drucke X-Koordinate 
LXI H, #0433 HL besteht hier aus: 
H:Vertikalzaehler fuer Anz ! 
L:Vertikalzaehler fuer 2,1,0 


PAGE 02 


065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
ово 
O81 
082 
083 
084 
085 
ове 
087 
ова 
089 
090 
O91 
092 
095 
094 
095 
096 
097 
0978 
099 
100 
101 
102 
103 
104 
105 
196 
197 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
125 
124 
125 
126 
127 


B228 
B229 
B22C 
B22F 
B231 
B233 
B236 
B237 
B238 
B239 
B23C 
B23D 
B23E 
B240 
B241 
B242 
B245 
B248 
B249 
B24A 
B24B 
B24D 
B24F 
E252 
B254 
B257 
B258 
B259 
B25B 
B25D 


B260 ! 


B262 
B265 
B266 
B267 
B268 
B26B 
B26C 
B26E 
B26F 
B272 
B273 
В276 
B279 
B27A 
B27B 
B27E 
B27F 
B282 
в285 
B284 
B285 
B286 


B287 
B288 
B28A 
B28C 
B28F 
B290 
B293 
B294 


Hardcopy Mode O 


ES 
11F2FF 
21E7BF 
0618 
OESC 
CD87B2 


c5 

AE ZO 
0606 
CD94DD 


NXTLIN 


VCNT! 


VCNT 
VSAV 
NX TCHR 


SEND 


ЖЖЖЖЖЖ 
INDENT 


INDI 


07.82 
Zaehler auf Stack 


Position 0,23 
Anzahl Zeilen (23-0) 
Anz. Char’s pro Zeile (0-59) 


Hole Zaehler 
Dec Anzahl 7!’ 


de 


Dec Anzahl iü-er Schritte 


= 727 "1" ader "oz 
Zaehler wieder auf Stack 


Drucke Zahl 


Hole Zaehler 


At bereits 7?!” gedruckt 7 


Drucke S-er Schritt als ? +” 
Drucke Trennzeichen 


Loesche Bit 7 
Steuerzeichen 7 


чепп ja,ersetzen durch Blank 


Hole Zaehler vom Stack 
Drucke X-Koordinate 


Einschub der Zeile um 6 Zeichen 


V1.5 
PUSH H 
LXI  D,-14 
LXI  H,8BFE7 
MVI — B,24 
MVI Cé 
CALL INDENT 
XTHL 
DCR H 
XTHL 
JNZ усмт! 
XTHL 
DCR L 
MVI  H,10 
MOV A.L 
XTHL. 
CALL  PRTNYB 
JMP БАУ 
XTHL. 
MOV ан 
XTHL. 
CPI 5 
MVI QUU 
JNZ  усмт 
MVI ата 
CALL SENDA 
PUSH FSW 
MOV — &,M 
ANI ЖОҒ 
CPI г? 
JNC SEND 
MVI а,” 
CALL SENDA 
DCX H 
DCX H 
DCR с 
2М2 NXTCHR 
POF PSW 
CPI "0 
PUSH PSW 
сс SENDA 
POP PSW 
смс ` PRTNYB 
CALL PRTCR 
DAD D 
DCR B 
JNZ  NXTLIN 
POP В 
CALL PRTLIN 
POP H 
POP р 
POP В 
POP PSW 
RET 
PUSH B 
MVI ат? 
MVI В,6 
CALL SENDA 
DCR B 
INZ _ INDI. 
POP B 
RET 
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128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
145 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 


ЖЕЖЖЕЖЖЕЖЖЖЖЖЕЖЖЖЕЖЖЖЖЕЖЖЖЖЖ 
* SY MBOL 
ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЕЖЖЖЕЖЖЖЖЖЖЖ 


ЕМО 


PRTL1 


B295 
B298 
B29A 
B29D 
B29F 
B2A1 
B2A2 
В2А5 
B2A7 
B2A9 
вгас 
B2AD 
B2BO 
B2B2 
B2B5 
B2B7 
B2B? 
B2BC 
B2BD 
B2CO 
B2C1 
B2C2 
B2C4 
B2C7 
B2C9 
B2CC 
B2CE 


B2D1 
B2D3 
B2D5 
B2D7 
B2DA 
B2DC 


B2DF 


Hardcopy Mode 0 


ЖЖЖЖЖЖ 
CD87B2 PRTL IN 
SE2B 
CD94DD 
0606 
ZE SO PRTL1 
FS PRTL2 
CD94DD 
SE2D 
9ЕО4 
CD94DD РКТЕЗ 
ор 
C2A9B2 
SE2B 
CD94DD 


CD94DD PRTL4 


3EOD РКТСК 
ЖЖЖЖУЖ 


ЕФОҒ PRTNYB 


C394DD 


END 


B2DF HCOPY В219 
KLIND O2BA NXTCHR B258 


B29F PRTL2 B2A1 


PRTLIN B295 РКТМУВ 8201 
SRCTAB B20A VCNT В254 


VSAV 


B297 
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TABLE Ж 


26.07.82 


Drucke Kopf- und Schlusszeile mit X-Koor 


Einschub betraegt 
hier 7 Zeichen. 


Drucke die Zehnerschritt 
als 0,1,2,3,4,5 

und zusaetziich jeden 
Fuenferschritt durch "tr? 


>? 


Alle anderen Zeichen "- 


Drucke rechtes Halbbyte von A 


V1.5 
CALL INDENT 
MVI 8,7” 
CALL SENDA 
MVI в, 
MVI й,7о" 
PUSH PSW 
CALL SENDA 
MVI Grp 
MVI C,4 
CALL SENDA 
DCR с 
JNZ  PRTLS 
MVI A,'+' 
CALL SENDA 
MVI A,'-—-' 
MVI C,4 
CALL SENDA 
DCR С 
INZ PRTL4 
POP PSW 
INR A 
CPI ге" 
JNZ  PRTL2 
MVI аА, ғ+° 
CALL SENDA 
MVI а, #0 
JMP SENDA 
ANI ЊЕ 
ADI го? 
CPI #3A 
JC SENDA 
ADI 7 
JMP SENDA 
END 
INDI B28C 
NXTLIN B231 
PRTLS 8289 
SEND В262 
VENT! 8248 


> 9, dh. A-F ? 


wenn ja, addiere 7 


INDENT B287 
PRTCR  B2CC 
FRTL4  B2B9 
SENDA 0094 
VEC7 рға 





+0----3+----4----+----?----+----8----+----4----+----6----+----+ 
‘DAInamic ASSEMBLER V2.3 
' 


! 
! ! 
'üsP. 
2В200 ЕЗ C5 ES SE 09 06 04 21 BA 02 BE СС 19 B2 23 05 2 
'B210 C2 OA B2 Ei Ci Fi C3 A9 D9 FS CS DS ES 56 20 CD 
'B220 CC B2 CD 95 B2 21 33 04 ES 11 F2 FF 21 E7 BF 06 
'B230 18 OE ЗС CD 87 B2 ЕЗ 25 ЕЗ C2 48 B2 ЕЗ 2D 26 OA ~ 
'B240 7D ES CD Di B2 C3 57 B2 ES 7C ES FE 05 ЗЕ 21 C2 
+8250 54 B2 ЗЕ 2B CD 94 DD FS 7E E6 7F FE 20 D2 62 B2 * 
'B260 ЗЕ 20 CD 94 DD 2B 2B OD C2 58 B2 Fi FE 30 FS DC 
'B270 94 DD Fi D4 Di B2 CD CC B2 19 05 C2 31 B2 Сі г 
D 1 
'B27F CD 
1B280 95 B2 Ei Di СЕ Fl C? CS SE 20 06 06 CD 94 DD 05 1 
8290 C2 8C B2 Ci C9 CD 87 B2 ЗЕ 2B CD 94 DD 06 06 ЗЕ 
!E2AO ТО FS CD 94 DD ЗЕ 20 ОЕ 04 CD 94 DD OD C2 А9 B2 ! 
"в2в0 SE ZB CD 94 DD ЗЕ 2D OE 04 CD 94 DD OD C2 B9 B2 
‘BECO Fi SC ЕЕ 36 C2 аі B2 ЗЕ 2B CD 94 DD ЗЕ OD СЗ 94 ! 
+B2D0 DD Ев OF Cé 50 ЕЕ SA DA 94 DD Се 07 C3 94 DD + 
г ' 
i | 
о о 

+ 


+0----+----4----+----?2----+----3----+----4---- +----6----+--<-- 


HARDCOPY MODE 0 


+0----+---- | ----+---- + 
РС UTILITY V3.3 
1208200 BZDE 
'B200 FS C5 ES SE 09 Оё 04 21 ВА 02 ВЕ CC 19 B2 25 05 
2B210 C2 OA B2 Ei Ci F1 Сз A9 09 FS CS DS ES 36 20 CD 2 
18220 CC B2 CD 95 B2 21 55 04 ES 11 F2 FF 21 E7 BF 06 
18250 18 OE ЗС CD 87 B2 ЕЗ 25 ES C2 48 B2 ES 2D 26 OA 
18240 7D ES CD рі B2 C3 57 B2 ES 7С ES FE 05 ЗЕ 21 C2 ! 
18250 54 BZ ЗЕ 2B CD 94 DD F5 7E Её 7F FE 20 02 62 B2 ' 
+8260 SE 20 CD 94 DD 2B 28 OD C2 58 B2 Fi ЕЕ 30 FS DC + 
1 
1 
1 
U 
1 
' 
' 
1 
1 
+ 
1 
t 
' 
I 


ы 
! 
I 
1 
i 

t 
| 
! 
i 
| 

а 
! 
| 
| 
| 
+ 
I 
| 
| 
! 

+ 
1 
! 
і 
і 
+ 
| 
| 
| 
1 

о 
! 
| 
| 
| 
+ 
| 
| 
| 
| 


'B270 94 DD Fi 04 Di B2 CD CC B2 19 05 C2 31 B2 Ci CD 
'B280 95 B2 Ei Di Ci Fi C9 C5 ЗЕ ZO 06 06 CD 94 DD 05 
'B290 C2 вс B2 Ci C9 CD 87 B2 ЗЕ 2R CD 94 DD O6 Оё ЗЕ 
IB2AO 30 FS CD 94 DD ЗЕ 2D OE 04 CD 94 DD OD C2 89 B2 
1B2BO ЗЕ 2B CD 94 DD ЗЕ 2D OE 04 CD 94 DD OD C2 B9 B2 
"Васо Fi ЗС FE зе C2 Al Ва ЗЕ 2B CD 94 DD ЗЕ OD C3 94 
'B2DO DD Её ОҒ Cé 30 FE ЗА DA 94 DD Се O7 СЪ 94 DD 
'2V7 DIAI-B200 

!»WB200 B2DE :Hardcopy Mode О (B200-B2DE) 

+ 

‘SET RECORD, START ТАРЕ, TYPE SPACE, 
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program identification 


title TV-tennis 
author Е Luc Maes 

play TV-tennis on your DAI 
purpose ! 
comment 


МУВА ту | 


Luc wrote this program the first week of his DAI- 








1 REM TV-tennis 

3 GOTO 2010 

10 REM initialiseren 

40 BAT1=1+PDL (5) £O! : BAT2=1+PDL (1) 30! 

49 REM tekenen van de batjes en de oude uitvegen 


50 IF ВАТ1<>В1 THEN DRAW 3,B1 3,B1+MG 5:DRAW 3,BAT1 3, ВАТ1+М6 3:B1=BATi 

60 IF BAT2<>B2 THEN DRAW XMAX-3,B2 ХМАХ-5,В2+М6 S:DRAW XMAX-S,BAT2 ХМАХ- 

3,BAT2-MG 1:B2-BAT2 

99 REM balletje tekenen en het oude uitvegen 

100 DOT BX2,BY2 5:DOT BX1,BY1 15:BX2-BX1:BY2-BY1 

125 IF ВХ1<5 THEN GOSUB 1000:REM ballet je ter hoogte van rood bat је 

126 ТЕ BX1>XMAX-5 THEN БОСОВ 1200:REM balletje ter hoogte van blauw bat je 

129 REM balletje aan einde v.h. veld 

150 IF BX1>=XMAX-2 THEN 1600 

155 IF ВХ1<=2 THEN 1400 

139 REM ballet je tegen de rand van het veld 

140 IF BY1>=52-ABS(SNY) OR BY1<=ABS(SNY) THEN SNY=SNY%(-1):SOUND 0 O 15 0 

FREB (2000) : WAIT TIME 2:SOUND OFF 

150 BX1=BX1+SNX:BY1=BY1+SNY:REM berekening v.d. nieuwe positie van het ba 

lletje 

160 GOTO 40 

1000 IF BY1>BAT1+MG THEN RETURN 

1010 IF BY1<BAT1 THEN RETURN 

1015 BEW-I*PDL (5) 46! 

1020 SNX=SNX%(-1):SOUND 0 O 15 0 FRE@(500):WAIT TIME 2: SOUND OFF 

1021 IF BEW=BAT1 THEN RETURN: КЕМ effect zetten of niet? 

1022 IF ВЕМ>ВАТі AND SNY<2 THEN SNY=SNY+1: RETURN 

1023 IF BEW<BAT1 AND SNY>(-2) THEN SNY=SNY-1:RETURN 

1024 RETURN 

1200 IF BY1>BAT2+MG THEN RETURN 

.1210 IF BY1<BAT2 THEN RETURN 

1215  BEW-1-4PDL (1) 3G! 

1220 SNX=SNX%(-1):SOUND 0 0 15 O FREG(500):WAIT TIME 2:SOUND OFF 

1221 IF BEW-BAT2 THEN RETURN 

1222 IF BEW>BAT2 AND SNY<2 THEN SNY=SNY+1:RETURN 

1225 IF BEW<BAT2 AND SNY>(-2) THEN SNY=SNY-1:RETURN 

1224 RETURN 

1400 SOUND O O 15 О FREG(35):WAIT TIME 10:SOUND OFF :BER$-"ROUD miste..." 

1599 GOTO 2500 

1600 SOUND О О 15 O FREB(50):WAIT TIME 10:SOUND OFF :BER$="BLAUW miste..." 
278 - 1799 GOTO 2500 








UECHTER 


2002 REM INITIALISREN 

2010 CLEAR 1000:J$-"":BER$-" ":POKE 475,32 

2015 REM BEGINPAGINA 

2020 PRINT CHR$(12):COLORG 5 15 3 O:COLORT 5 15 5 5 

2030 MODE 4A Ва 
2040 DRAW 0,0 ХМАХ,О 15:DRAW XMAX,O ХМАХ,105 15:DRAW XMAX,105 0,105 15:DRA 
W 0,105 0,0 15 

2042 DRAW 0,15 159,15 15:DRAW 0,90 159,90 15 

2044 DRAW 40,15 40,90 15:DRAW 119,15 119,90 15 

2046 DRAW 40,53 119,53 15:DRAW 80,5 80,100 0 

2048 DRAW 20,80 41,80 3:DRAW 30,80 30,55 3:DRAW 45,80 55,55 3:DRAW 55,55 6 


2050 DRAW 30,30 30,15 3:DRAW 30,15 55,10 S:DRAW 55,10 36,15 3: DRAW 29,25 3 
2052 DRAW 40,20 44,20 3:DRAW 46,20 43,25 3:DRAW 45,25 40,20 3:DRAW 40,20 4 


2053 DRAW 40,15 43,10 3:DRAW 43,10 46,15 3 
2055 DRAW 50,25 50,10 3:DRAW 50,20 53,25 3:DRAW 53,25 56,20 3: DRAW 56,20 5 


2057 DRAW 50,25 60,10 3:DRAW 60,20 63,25 3:DRAW 63,25 66,20 3:DRAW 66,20 6 


2059 DOT 70,30 3:DRAW 70,25 70,15 3:DRAW 70,15 73,10 3 

2061 DRAW 77,15 80,10 3:DRAW 80,10 83,15 3:DRAW 83,15 77,20 5 
2062 DRAW 77,20 80,25 3: DRAW 80,25 85,20 5 

2110 CURSOR 30,3:PRINT "door Luc Maes” 

2120 CURSOR 37,2:PRINT "Collegestraat 60 E" 

2130 CURSOR 37,1:PRINT "B 2300 Turnhout” 

2200 G=GETC:IF G=0 THEN 2200 

2398 REM PAGINA 1: keuze van de moeili jkheidsgraad 

2399 MODE O 

2400 PRINT CHR$(12) 

2405 COLORT 8188 

2410 CURSOR 10,20:PRINT "Welke moeilijkheidsgraad wil je?" 
2420 CURSOR 20,14:PRINT "1: gemakkelijk (grote rackets)" 

2430 CURSOR 20,13:PRINT “2: moeilijk (kleine rackets)" 

2432 CURSOR 0,23:FOR N-1 TO 60:PRINT CHR$ (29) ; : МЕХТ: CURSOR 0,9:FOR N=1 ТО 
60:PRINT CHR$(29)3:NEXT:CURSOR 0,1:FOR N-1 TO 40:PRINT CHRS (29); : NEXT 
2435 CURSOR 2,6:PRINT "Op het speelveld: 'EVENT' om de bal te starten":CUR 
SOR 20,5:PRINT "'M' voor de andere moeili jkheidsgraad" 

2436 CURSOR 20,4:PRINT "'CHAR DEL’ om te stoppen" 

2440 CURSOR 10,17:PRINT "2"; 

2450 G=GETC:IF 650 THEN 2450 

2460 IF 8-49 THEN MG=3:PRINT "1":WAIT TIME 30:60T0 2500 

2470 IF 6=50 THEN MG=2:PRINT "2":WAIT TIME 30:60T0 2500 

2480 6070 2450 

2500 REM berekening van de score 

2510 WIES-LEFT$ (BERS, 1) 

2550 IF WIE$<>"R" THEN GOTO 2700 

2560 IF GB<>40 THEN 2600 

2570 IF 8R-40 AND J$="voordeel ROOD" THEN J$="":GOTO 2800 
2580 IF GR=40 AND J$="" THEN J$="voordeel BLAUW":GOTO 2800 
2590 SB=SB+1:GB=0:GR=0: J$="":GOTO 2800 

2600 IF GB=30 THEN GB=40 

2610 IF GB=15 THEN GB=30 

2620 IF BB-O THEN GB-15 
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2700 ТЕ WIESC>"B" THEN 2800 

2705 IF GR<>40 THEN 2750 

2710 IF GB=40 AND J$="voordeel BLAUW" THEN J$="":GOTO 2800 

2720 IF GB=40 AND J$="" THEN J$="voordeel ROOD":GOTO 2800 

2730 SR=SR+1:GB=0: GR=0: J$="":GOTO 2800 

2750 IF GR=30 THEN GR=40 

2760 IF GR=15 THEN GR=30 

2770 ЇР GR-O THEN GR=15 

2800 REM PAGINA 3: veld * scorebord 

2815 PRINT CHR$(12):COLORG 5 15 1 3:COLORT 5 15 5 S:MODE ЗА 

2830 CURSOR 25,0:PRINT BERS; 

2840 CURSOR 8,3:PRINT "Score v. rood" 

2860 CURSOR 39,3:PRINT "Score v. blauw" 

2870 CURSOR 2,2:PRINT "Points :" 

2880 CURSOR 2,1:PRINT "Games :" 

2890 CURSOR 14,2:PRINT GR:CURSOR 45,2:PRINT GB 

2900 CURSOR 14,1:PRINT SR:CURSOR 45,1:PRINT SB 

2910 CURSOR 25,2:PRINT J$ 

2950 IF (SB+SR) MOD 2=0 THEN BX1=7:SNX=3:CURSOR 0,0:PRINT "ROOD slaat op." 
s:8DTO 2990 

2960 BX1-XMAX-7:SNX--5: CURSOR 40,0:PRINT "BLAUW slaat ор.“; 

2990 Bi=53:ĐB2=53:SNY=2$ INT (RND (2) ) -1: BX2=1: BY2-1 

5000 8B8!-(50.0-M8) /255 

3004 DRAW 0,0 ХМАХ,0 15:DRAW XMAX,O ХМАХ,52 15: DRAW XMAX,52 0,52 15:DRAW О 
„52 0,0 15 

3005 IF (SB+SR) MOD 2-0 THEN BY1=3+PDL(5)%8!:GOTO 3050 

3006  BY1-3*PDL (1) 46! 

5050 BAT1=1+4PDL (5) 3B! : BAT2=1+PDL (1) 40" 

3040 IF BAT1<>Bi THEN DRAW 5,В1 3,Bi+MG 5:DRAW 5,ВАТ1 3,BAT1+MG 3: В1-ВАТ1 
3065 IF BAT2<>B2 THEN DRAW XMAX-3,B2 XMAX-3,B24-MG S:DRAW XMAX-3,BAT2 ХМАХ- 
3, BAT2+MG 1:B2-BAT2 

4000 IF (SR+5B) MOD 2-0 AND (РЕЕК(#Е000) ТАМО #30)=#10 THEN GOTO 10 

4001 IF (SR+SB) MOD 2<>0 AND {PEEK (#FDOO) ТАМО #30) =#20 THEN GOTO 10 

4010 G=GETC:IF 6<>77 AND G<>8 THEN 3005 

4020 IF 6-77 AND MG=2 THEN MG=3:GOTO 2800 

4030 IF 6-77 AND MG=3 THEN MG=2: GOTO 2800 

4999 REM einde van het spel 

5000 PRINT CHR$(12):MODE O:COLORT 8 1 8 З 

5020 CURSOR 10,20:PRINT "'RETURN' om nog eens te spelen.":CURSOR 10,17:PRI 
NT "'CHAR DEL’ om te stoppen." | 

5050 CURSOR 10,14:PRINT "’L’ om een volgend programma op te laden" 

5040 G=GETC:IF G=0 THEN 5040 

5041 IF G=13.0 THEN GOTO 2010 

5042 IF G=8 THEN END 

5043 IF G=ASC("L") THEN 5050 

5044 GOTO 5040 

5050 PRINT CHR$(12):POKE #BBBF,#5A:CURSOR 0,15:PRINT "ВВВ LOADING ВВВ" : РОК 


Е #75, 255: CURSOR 28, 13:LOAD 
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UT 


READING IN MACHINE LANGUAGE (UT). 


While it iz rather exceptional thad you will fint 
taiping errors in hour magazine, there waz one bug 
in NEWZLETTER 10 page 88 

OUTPUT TO RS 232 ONLY 

POKE H2DD,H3C should be : POKE H2DD,HC3. 








When you try to read а machine language file in utility, 
you should not type "READ", but only "R" (return). 
Surprisingly enough, your DAI will try to read the next file 
if you type "READ", but while reading the file, DAIpe will 
relocate the file in memory with an !о ве! of HEX EAD. 
(HEX EAD is а legal hexadecimal value !) 


‘mmm tn 


BURGLARY IN TONGELSBOS 


‘em EE 


During the weekend of 17-19 september, there was a burglary 
in our school TONGELSBOS. ( The institue where we are always 
welcome to have our meetings and other activities.) 
The burglars caused a lot of damage to the building and took 
3 television-sets and one portable radio. 
While 2 of these television-sets were used for computer-assisted 
learning on DAlpc, we are really in trouble. 
DAInamic is organising an action to help the school to get 
at least one o ther TV-set. 
We have assembled a-very special collection to be sold for 
the benifit of TONGELSBOS : 

DAI ATLAS : a software collection containing 

- memory map of the world (see cover of: Newsletter 10) 

- training programs of all the parts of the world, in 

graphics. (Europe,Africa,Asia .... 8 programs) 

If you are willing to help TONGELSBOS you ean order this tape 


by sending 500 Bfr to TONGELSBOS 
Bosstraat 2 
3180 WESTERLO-BELGIUM 


(you can send an Eurocheque or cash or send the money to the 
bane : 230-0097820-64 in TONGERLO-WESTERLO ) 
The tapes will be produced and mailed by DAInamic at no costs. 


пай падк - Шар дада.» ~ Ian 112115 - „Дај рады 
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жжжжжжжжжжжжжжжжжжжжжжжжжжжж 
ж ж 
ж DAI pc FIRMWARE MANUAL ж 
ж | ж 
жжжжжжжжжжжжжжжжжжжжжжжжжжжж 


The "DAI pc FIRMWARE MANUAL’ is ready now. The whole 
24K ROM firmware in source listing, complete with 
detailed comments. About 250 pages with all information 
you needed sa badly. 

Now it is possible to write your own machine language 
programs with all the DAI resident software useable 

as subroutines. 


Both BASIC versions V1.0 and V1.1 are described in 
this manual. Together with the complete memory map, 
it contains all the information about the internal 
software of your DAI personal computer. 


The manual costs Hfl. 58.--, including shipping. 
It can be ordered by transferring this amount to bank- 
account 12.05.78.754 of: 


"Micro Service" 
Fabritiusstraat 15, 
6174 RG Sweikhuizen, The Netherlands. 


or hy sending a Eurocheque of the same amount to the 
above address. 


The manual will be printed and shipped in November. 


dan Boerrigter 





1. MODIFICATION DNA ALTERNATE FRINTER ROUTINE 


- UN FOINTEUR N'A FAS ETE MIS A JOUR ===) EN #2029 PLACER LA 
VALEUR 454 

- CE FOINTEUR EST UTILISE LORSQU'GN TRAVAILLE AVEC DNA EN MODE 
EDIT (€ IE. ) 






2. DANS LE NO. 10 СР, 105).S5I ON UTILISE LA, ROUTINE XPRTY (:С030). 
IL FAUT FRECISER SI L'ON VEUT L'OUTFUT INT OU FTP ЕТ CELA AU 
MOYEN DU REGISTRE H : 


- SI B=9 ---> OUTFUT STRING INT 


- SI BO ---) OUTFUT STRING ЕРТ 


JOEL МЕМТЕК. 
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шн ipa 9 дај ио ото 








title 
author 


purpose 
comment 


program identification 


Bootstrap Loader V2 


F.De Raedt 


Bootstrap Loader in 


"USER" 


Executes after DAI reset 


machine language 





02F0 
0500 
0310 
0320 
0550 
0340 
0350 
0360 


036E 
0370 
0380 
0390 
03А0 
0580 
озсо 
0500 
ОЗЕО 


ОЗЕЕ 
O3FO 
0400 


31 
B8 
3E 
ot 
F9 
04 
02 
OA 


C3 
ЕВ 
AF 
56 
49 
20 
cD 
2A 
B8 


18 
SB 
SD 


11 
20 
FF 


21 


г 


19 


DD 
01 
13 
09 
00 


EC 
32 


21 
F9 
01 


F8 


2A 


20 
55 
31 
54 
Di 
DD 


41 
00 


22 
01 


с7 
32 
22 
D9 
AF 


42 


01 
60 


СЕ 
00 
77 


22 


4D 
41 
20 


ZA 
= 


00 


D2 
AD 


41 


22 
DS 
7C 
D3 
22 


11 
9D 


49 
44 
4c 
46 
01 


22 
01 


53 


43 
45 
4F 
49 
01 
00 
9B 
20 


49 


02 
01 
FB 
21 


01 


05 


CD 


ЗЕ 
00 


CA 
21 


42 
20 
44 
45 
31 


CD 


20 


format 
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PAGE 01 DBL 2.1 


002 
QOF 
004 
005 
006 
007 
098 
009 
010 
011 
012 
O13 
014 
015 
012 
017 
018 
019 
020 
озі 
O22 
O23 
024 
025 
оза 
027 
о28 
929 
O30 
0531 
O32 

33 
034 
035 
058 
037 
058 
029 
040 
O41 
042 
045 
044 
045 
046 
047 
243 
049 
050 
051 
052 
ов 
054 
053 
055 
057 
058 
059 
080 
061 
042 
063 
064 
065 


OSMAY82 


Ж PREV VERS : DEL 2.B 22ҒЕВ82 
x я 
ХХХ АХЖ ХА ККЕ КЕК АХА ХХХ ХЕ ХХХ ХХХ ХЕ ХХХ ЖҰ 
x 

DAINAMIC  BOOTSTRAP LOADER ( DBL ) 
x 


D 

D 

% DBL IS USED FOR EASY LOADING OF PROGRAMS WHICH 
HAVE A MACHINE LANGUAGE AND A BASIC PART. 

x 

Li 


DBL 1.* : DELIVERED AS A BASIC PROGRAM AND 
IS USABLE WITH CASSETTE, DCR AND 
DISK BY TYPING XLOAD:RUN . 

DEL 2.3 : DELIVERED AS AN UTILITY FILE AND 
ONLY USABLE WITH DCR AS AN "USER? 
FILE AND EXECUTED AFTER DAI RESET. 


x 
x 
x 
x 
D 
x 
x 
VERSIONS : x 
1 
x 
x 
x 
x 
x 
x 
x 


ХКК КККК ОКЖ 


LEES EE TTT А ЖҰ ХЕ ХХХЖ ХХХ ХХ Ж 


THIS MACHINE LANGUAGE FROGRAM IS LOADED AS АМ 
"USER? FILE AFTER DCR BOOTSTRAP. 

iT IS LOADED IN THE LOWER PART OF THE RAM, BUT 
DURING EXECUTION A PART OF THE PROGRAM IS MOVED 
TO THE STACKAREA OF THE RAM. THIS ALLOWS THE 
UTILITY FILE TO OVERWRITE THE LOWER RAM AREA. 


x 
x 

x 

x 

Ж 

x 

x 

x 

x 

x 

x 

x 

x 

x 

x 

x 

D 

x 

D 

x 

k 

x v 
Ж FOR USING DCR BOOTSTRAP LOADING, DBL 2.ж MUST 
* BE THE FIRST FILE ON А WRITE PROTECTED DCR TAPE 
k AND AS FILENAME ONLY “USER? IS ALLOWED. 

¥ LOADING AND EXECUTING IS DONE IMMEDIATE AFTER 
Ж POWER UP OR PRESSING RESET. 

* FOR MLP/BASIC PROGRAMS NOT FIRST ON A DCR TAFE 
Ж USE DBL 1.* . 

x 

k FUNCTIONS : 

x 

x 

x 

x 

x 

k 

x 

D 

x 

x 

x 

* 

k 

x 

* 

x 

x 

x 

x 

x 

k 

k 

D 


CONTINUE SYSTEM AND BASIC INITIALIZATION 
WHICH WAS ABORTED BY THE DCR BOOTSTRAF. 


PRINT DBL TITLE AND CLOAD UT]. 

LOAD NEXT UTILITY FILE ON TAPE. 

SET BEGIN OF HEAP AFTER CODE OF THE 
UTILITY FILE AND PERFORM A ЖМЕМ TO ADJUST 
OTHER BASIC POINTERS. 


PRINT MESSAGE CLOAD BASIC] AND LOAD THE 
FIRST BASIC PROGRAM ON TAPE. 


.6) FORCE A RUN OF THE LOADED BASIC FROGRAM. 
NOTES : 


1) РКОБКАМ EXECUTION ALWAYS STARTS WITH à 
SYSTEM RESET. 


зе 3€ зе 3€ зе 3€ зе 3€ зе 3€ зе 3€ зе де зе ЭС зе ze ze 3€ 3€ 3€ Ae 9€ зе € зе ЗЕ зе жез A зе 3€ Ae 3€ € 36 » X зе 


4) IF THE BREAKKEY IS PRESSED : 
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065: 
067 
058 
059 
070 
O71 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
085 
084 
085 
ода 
097 
о88 
087 
090 
091 
092 
0935 
094 
098 
094 
097 
098 
099 
190 
101 
102 
103 
104 
105 
106 
197 
108 
109 
110 
111 
112 
112 
114 
115 
116 
117 
118 
119 
120 
121 


ри 
та. 


123 


a4 


124 


TEL 
x 


126 

ER 
128 
129 





озмаува 


~ AFTER LOADING TARGET UTILITY FILE AND 
BEFORE LOADING OF THE BASIC PROGRAM THEN 
TYPE XLOAD: RUN TO CONTINUE. 

~ AFTER LOADING THE BASIC PROGRAM THEN 
ТҮРЕ XRUN TO CONTINUE. 


3) IF LOADING ERRORS OCCUR DURING : 

- LOAD "USER", THEN LOAD IS RETRIED 2 
TIMES ; IF RETRY FAILS, PRESS RESET ТО 
START AGAIN. 

- LOAD OF TARGET OF UTILITY FILE THEN 
PRESS RESET TO RESTART. 

- LOAD OF THE BASIC PROGRAM THEN RESTART 
ONLY LOAD OF BASIC : SET TAPE BEFORE 
BASIC AND ТҮРЕ *LOAD:RUN . 

LOADING ERRORS ARE REPORTED IN THE NORMAL 

DAI ERROR FORMAT. 


x x 
x x 
x x 
x x 
x k 
x x 
x D 
x x 
Ж D 
x x 
D x 
Li x 
x x 
x x 
x x 
x x 
D x 
Li x 
x 4) 86 DBL READS THE TAPE FILES WITHOUT x 
x FILENAMES, FUT THE FILES IN CORRECT x 
Ж SEQUENCE ON THE ТАРЕ : x 
D i- 1USER : DBL 2.x x 
k 2- 1UT-FILE : YOUR МЕР CODE x 
x 5- OBASIC : YOUR BASIC FROGRAM x 
D x 
x 5) DBL 2.% IS LOADED IN RAM FROM ADDR :2Е0. x 
x FIRST PART OF THE CODE IS ENTERED AT ADDR x 
x ı2FO AND PERFORMS FUNCTIONS 1 AND 2. x 
x PART 1 ALSO MOVES THE CODE OF PART 2 TO x 
x THE STACKRAM. THIS IS DONE TO ALLOW THE £ 
Ж UTILITY FILE TO OVERWRITE THE DBL CODE x 
x STARTING АТ ADDR :2F0. X 
x PART 2 IS ENTERED АТ ADDR 800 AND x 
x PERFORMS FUNCTIONS 3,4,5 AND 6. D 
x x 
A D 
x D 
x x 
x x 
x X 
x x 
x x 
x x 
D x 
D 

x 


6) COMPARED TO DBL 1.* PART 1 DOES THE 
FUNCTIONS OF DEL 1.* BASIC AND PART 2 IS 
EXACTLY IDENT ТО DEL 1.* МІР. 


7) TO MAKE & COPY OF DBL 2.* LOAD IT WITH 
ОТК AND IMMEDIATE SAVE IT WITH 
WEFO XXX USER. ХХХ = VALUE SYMBOL END2. 
OGOOGO OOO O E OE EE 


DESCRIBES OF DAI REFERENCES 


зе 


x 

* SYSTEM RAM : 

RAM EQU + ЗЕС DEFAULT BEGIN HEAF 

SRBÜT ЕШ :F800 BOTTOM OF STACK RAM 

SSTOP EQU :F900 TOP OF STACK RAM 

k TAPE VECTORS : 

КОРЕМ ЕШ) ALE SEARCH TAPE FILE,CHECK FILE 
TYPE, SYNC, DISFL/CHECK NAME 

RELE ЕНИ 1201 TRANSFER BLOCK OF BYTES FROM 
TAPE TO RAM, EXIT WITH CY=1 
IF NO LOADING ERRORS 
ELSE CY=1 AND A-ERRORCODE 

RCLO EGU 1204 STOF CASSETTE 

k USED DAI ROUTINES : 

FRCRUN ЕВО :C892 FORCE BASIC RUN IF NO BREAK 

ERRLD EQU :р2А8 ENTRY FOR TAFE ERROR MSG, 
EXITS TO BASIC COMMAND MODE 















150 
131 


TI 
a 







134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
165 
164 
165 
166 
167 
168 
169 
170 
171 
172 


175 














































173 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
195 




























PAGE 05 


O2FO 
O2F3 
O2F6 
O2F9 
О2ЕС 
О2ЕЕ 


0302 
0304 
0107 
063086 
0300 
0310 


0512 
0515 
0318 
ӨЗІН 


051Е 
OS1F 


0321 


032 


3100F9 
Z1ECO2 
229B02 
211F01 
229D02 
CDBSDE 


3E10 
523001 
21CSE8 
С06005 
CDO1D1 
3E10 


328F02 


117502 
218FO02 
CD7CDE 


FB 
ЗЕОС 


CDSODD 
2iEEC7 


DBL 2. 


O5MAYS2 
CRLF EBU  :DDSE 
QUTC EGU :DD6O 
PMSGR ЕВО :DAFF 
RBPMSG EQU :СЕЕ4 
MOVE EGU :DE4F 
FILL ЕВЫ :DE7C 
RNEW ` ЕШ)  :DEB8 
x DESCRIBES 
CURRNT EGU  :100 
BRKPT ЕШШ :102 
LOPVAR EGU :104 
STKGOS EQU :115 
SYSTOP EGU :115 
STRFL ЕВО :115 
RDIPE  EQU  :117 
RUNF EQU  :118 
CONFL EOU 1126 
STACK EBU  :127 
ERSFL EQU  :122 
CASSL EGU  :13D 
IMPTAB EOU 1275 
IMPTYP EOU  :28F 
HEAP EGU  :29B 
HSIZE EQU :29р 
HSIZD EBU  :100 
KBRFL EQU 22C4 
k 
k LITERALS : 
ЕЕ EU :C 
CR EQU sD 
x 
ORG RAM+A 
x 
ж CONTINUE DAI RESET ROUTINE : 
ENTRY LXI  SP,S8STOF 
LXI  H,RAM 
SHLD  HEAF 
LXI 
SHLD HSIZE 
CALL КМЕМ 
X NOTE : THE 
MVI A,:10 
STA CASSL 
LXI Н, :Е8С5 
CALL :0560 
CALL  :D101 
MVI A, 210 
STA ТМРТУР 
LXI D. IMPTAB 
LXI Н, IMP TYP 
CALL FILL 
ЕТ 
MVI А,ЕЕ 
CALL OUTE 
LXI 


DAI SYSTEM DATABASE : 


H, END2-ENTRY+5 


HEAP IS BUILD UP AROUND THE CODE OF DBL 








PRINT CARRIAGE RETURN 

PRINT CHARACTER IN REG A 
PRINT MSG WITH CODE POINTER 
RESET КОМ BANKSWITCH + PMSGR 
MOVE RAM AREA 

FILL RAM AREA 

DELETE BASIC PROGRAM AND SET 
UP BASIC POINTERS 


START OF CURRENT LINE 

START OF CURRENT COMMAND 
POINTS TO CURRENT LOPVAR 
STACK LEVEL AT LAST GOSUB 


TRACE/STEP FLAGS TOGETHER 
FLAG SET WHILE RUNN. INPUT 
FLAG SET WHILE RUNN. PROGR 
SET IF SUSPENDED PROGRAM 
CURRENT BASE STACK LEVEL 
SET IF ENCODING STORED LINE 
SELECT CAS 1/2 SET :10/:20 
TABLE IMPLIED УАКТУР 


BEGIN НЕАР 

SIZE HEAP 

DEFAULT SIZE НЕАР 

FLAG FOR BREAK PRESSED 


FORMFEED 
сак RET 


4 BYTES RESERVED FOR HEAP 


INIT NORMAL STACKPTR 
NORMAL HEAPBEGIN 
SET UP BEGIN OF HEAP 


SET DEFAULT HEAFDIM 

RUN NEW CMD = SET UP OTHER 
BASIC POINTERS (TXTBGN, 
STBBGN,STBUSE) AND RUN CLEAR 


SELECT CASSETTE 1 

POINTER ТО KEYBOARDTABLE 
SET UP KEYBOARD VARIABLES 
STORE 0 INTO RAM ADDR 0 
DEFAULT - INT TYPE 

/* IF YOU PATCH MVI А, :10 
/* INTO MVI а, :00 THEN 

/* DEFAULT = ЕРТ ТҮРЕ 


FILL AREA [DEI UNTIL EHLI-1 
WITH VALUE IN A 
ALLOW INTERRUPTS 






CLEAR SCREEN 


FOINTER TO DEFAULT COLORT 


РАВЕ 04 DBL 2.1  OSMAYS2 


194 0327 ЕЕ RST 5 SET 

195 0328 06 DATA 6 COLORT 

196 0329 CDEACE CALL RBPMSG RESET BANKSWITCHING AND 
197 0520 D3C7 DEL :C7D3 PRINT BASIC TITLE 

198 

199 Ж PART OF BASIC RESTART ROUTINE 

200 052Е 2100Е9 LXI H,SSTOP SET UP STACKPOINTER 

201 0331 222701 SHLD STACK SOFTWARE SAVE BASE STACK 
202 0334 Е9 SPHL SET STACK 

203 0335 АЕ так 

204 0335 122601 STA СОМЕ. NO SUSPENDED PROGRAM 

205 0339 210000 LXI но 

206 0526 220001 SHLD CURRNT МО PROGRAM RUNNING 

207 O33F 220401 SHLD LOPVAR МО FOR NEXT LOOP RUNNING 
208 0242 221301 SHLD STKGOS МО ACTIVE GOSUB 

209 0345 322201 STA — ERSFL NOT ENCODING STORED LINE 
210 0348 211701 LXI  H,RDIPF SET INPUT AND PROG NOT RUN 
211 034B 77 MOV M,A RDIFF=0 

212 озас 25 INX H 

213 034D 77 MOV МА RUNF=0 

214 O34E 320402 STA KBRFL SET NO BREAK 

215 0251 CD88D9 CALL :D988 ENABLE KEYBOARD SCAN INTR 
214 0254 CDDBD9 CALL 10908 ENABLE 20MS CLOCK INTERRUPT 
217 x 

218 X PRINT *DBM TITLE’ AND "LOAD MLP? : 

219 0357 CDFFDA CALL PMSGR PRINT DBL 2. TITLE AND 
220 035A 7103 DBL HEADS г LOAD UT J 

221 ж MOVE PART 2 OF DEL 2.% : 

222 035C 118405 LXI  D,BGN2 FROM ADDR 

223 O35F 210404 LXI  H,END2 TILL ADDR-1 

224 0352 0100F8 LXI  B,SRBÜT ТО ADDR 

225 0565 CDAFDE CALL MOVE 

226 0368 210001 LXI  H,HSIZD ALLOW DEFAULT HEAPSIZE 
227 036B 229002 SHLD HSIZE 

228 O34E C300F8 JMP  SREOT TRANSFER CONTROL TO PART 2 
229 ` 

230 0371 OD HEADS DATA CR 

231 0372 ФАФАФА ASC гжжж DAINAMIC BOOTSTRAP ° 

232 0389 4C4F41 ASC ‘LOADER V2.1 ЖА" 

233 0598 0000 DATA СК,СК 

234 039A 58204С ASC "EL LOADING UTILITY FILE 27 

235 03B2 Ороо DATA CR,O 

236 EE 

237 BASE THIS NEEDED FOR CORRECT 
238 OFFSET EGU  SRBÜT-BASE LABELING OF PART 2 

239 x 

240 X FOLLOWING CODE IS IDENT TO DBL 1.% 

241 k THIS CODE IS MOVED BEFORE IT IS EXECUTED 

242 x | 

243 £ LOAD UTILITY FILE : 

244 0584 3100F9 BGN2 ХІ BSP,SSTOP 

245 ОЗВ7 210000 LXI H,:0 READ WITHOUT NAME 

245 озва 220001 SHLD CURRNT | SET МО PROGRAM RUNNING 
247 OZED O1FF31 LXI  B,:31FF FILETYPE 1 + PRINT NAMES 
248 03C0 CDCEOZ CALL КОРЕМ 

249 0303 2154F8 ^ LXI  H,TEMP+OFFSET TEMPORY SAVE AREA 
250 0306 1154F8 LXI D,TEMP+UFFSET+2 

251 0309 CDD102 CALL RBLK READ BEGINADDR UT CODE 
252 0300 2100B0 LXI  H,:B000 МАХ ADDR UT FILE 

253 ОЗСЕ EB XCHG 

254 0500 2AS4F8 LHLD  ТЕМР+ОЕЕЗЕТ 

255 03D3 DCD102 CC кик IF NO ERRORS READ BLOCK 
256 | WITH CONTENTS UT FILE 


257 озі” с00402 , CALL КСО ALWAYS STOP CASSETTE 





FAGE 05 DBL 2.1 OSMAYS2 


258 0109 D2A8D2 JNC ERRLD ABORT IF ERRORS 

259 OSDC 229802 SHLD HEAP ADJUST HEAFBEGIN 

260 OEDF СОВВОЕ CALL RNEW ADJUST OTHER POINTERS 

261 O3E2 CDSEDD CALL CRLF 

262 OSES 0137F8 LXI B,BASLIN+OFFSET POINTER BASIC CMD LINE 
263 O3EB C392C8 UMP ` FRCRUN START BASIC RUN 

264 x 

265 * FOLLOWING DATA IS EXECUTED AS A BASIC COMMAND LINE 
266 TRUN EDU 3:87 RUN (DAI INTERNAL CODE) 

267 TLOAD Еш! : 3B LORD 

268 ТРКІМТ EQU "Ар РКТАТ 

269 x 

270 OZEE AD BASLIN DATA TPRINT FRINT MESSAGE 

271 O3EC 01 DATA :01 1 EXPRESSION 

272 OSED 20 DATA :20 БЕРАКАТОК 


275 OSEE 18 DATA :18 STRINGCONSTANT 

274 OSEF 11 DATA 1:11 STRINGLENGTH ` 

275 OSFO SB204C ASC "г LOADING BASIC 1? 

278 0401 FF DATA ЕЕ END PRINT WITH CR 
277 0402 8B DATA TLOAD LOAD BASIC PROGRAM 
278 0403 1900 DATA 319,200 DUMMY STRINGCONSTANT 


279 0405 ADOO DATA TPRINT,:00 PRINT ONLY CR 

280 0407 87 DATA TRUN START BASIC PROGRAM 
281 x 

282 0408 0000 TEMP DEL © 

283 x 


284 04048 END2 END 


ХХХ ХХХ ХЕ ЖЖ ХХХ 
XSYMBOL TABLE ¥ 
ЖЖЖЖЖЖАЖЖЖЖЖККЖЖЖЖЖКЖЖЖЖЖЖЖА 


BASE O3B4 BASLIN ОЗЕВ O3BA 0102 
CASSL 0150 СОМЕ 0126 0000 DDSE 
CURRNT 0100 END2 0404 O2FO D2A8 
ERSFL 0122 FF o00C DE7C C892 
HEADS 0371 HEAP ` 929В 0100 0290 
IMPTAB 0275 ІМРТҮР O28F 0284 0104 
MOVE DE4SF OFFSET F44C 0060 DAFF 
RAM ӨЗЕС КЫК O2D1 CEE4 0204 
RDIPF 0117 КМЕМ DEBS O2CE 0118 
SRBOT F800 SSTOP F900 0127 0113 
STRFL 0115 SYSTOP 0115 0408 008B 
TPRINT OOAD TRUN 0087 





THIS PROGRAM WILL GIVE YOU ALL THE ASCII-VALUES USED IN A CERTAIN FGT-TABLE ` 


10000 CH=#580 
10010 L=PEEK (CH+1) 
10015 IF PEEK(CH)=#FF THEN STOP 


10020 PRINT CHR$ (PEEK (CH) ) , HEX $ (CH) 
10040 CH=CH+L42+2 
10050 GOTO 10010 
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program identification 


title ° CONVERSION APPLE-ATARI-DAI 


author 2 _F.Verstegen — Z O O OOOO 
purpose < . conversion-routine for graphic coordinates _ 
comment 





Bij het vertalen van Apple en Atari programma’s naar 

de Dai, zijn er verschillende problemen die zich voor doen. 
0.a. dat de Apple еп де Atari де oorsprong van de graphics 
modes links-boven op het scherm hebben. 

Bij het vertalen geeft dit (vooral bij de wat grotere 
programma's) een hoop rekenwerk en kans op fouten. 

Een voorbeeld: 


fpple le opl. 2e opl. 
10 HGR MODE 5 MODE 6 
20 Y=0:COLOR=15 Y=179:C=15 Y=0:C=15 
30 PLOT 100,Y DOT 100,Y C DOT 100,179-Y С 
40 Y-Y41 Y=Y-1 =Y+1 
SO IF Y>179 THEN END IF Y<O THEN END IF Y>179 THEN END 
60 GOTO 30 БОТО 30 GOTO 30 
5 POKE #2FF,179:POKE #6C,0:POKE #6D,3 
10 MODE 6 
20 Y=0:C=15 
Зе opl. зо DOT 100,Y С 
40 Y=Y+1 
50 IF Ү>179 THEN END 
60 GOTO 30 


Het voordeel van de derde oplossing is dat men na de init 
(regel 5) het Apple of Atari programma bijna letterli jk 
kan overtypen. 


De werking is als volgt: een machinetaalprogramma behorend 
bij oplossing 3, doet wat de tweede oplossing doet in 
BASIC, namelijk van een vooraf bepaalde waarde ( 179 in dit 
voorbeeld ) elke y-waarde aftrekken. 

Dit wordt mogeli jk gemaakt omdat elke BASIC opdracht die 
wat met de video-ram te maken heeft gebruik maakt van de 
RST 5 + byte combinatie. RST 5 staat in principe voor 

een CALL #28. Vanaf locatie #28 staat dan de interrupt 
routine van vector 5 ( zie ook DAInamic 11, blz 180-181 ). 
Interrupt routine 5 zorgt voor een sprong aan de hand van 
de inhoud van locaties #5С en #6). 

Door nu de inhoud van locaties #5С en #50 op #300 te 
zetten, zal bij elke scherm-opdracht naar #300 gesprongen 
worden, met in de registers de benodigde parameters ( zie 
ook DAInamic 5, blz 120). 
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Vanaf #300 is een stukje van de rom gekopieerd года! па de 
scherm-functie te hebben uitgevoerd, er in de rom terug- 
gesprongen kan worden. | 


Op #313 wordt gekeken of het wel een DOT DRAW FILL of SCRN 
functie is. Zo niet dan wordt er teruggesprongen in de rom. 


Hebben we wel een ( lees 1 ) van de bovengenoemde functies, 
dan wordt er de inhoud van #2FF van de y-waarden afgetrok- 
ken. Daarna terug in de rom, en de BASIC weet van niets. 


#500 EI POP H 

#301 ЕЗ DI 

4302 22 43 00 SHLD #43 ; SAVE HL 

#305 FS PUSH PSW 

#306 ЗЕ 80 MVI A,880 ;BANK SELECT BITS 
#308 Е! POP H 

#309 22 41 00 SHLD #41 ; SAVE PSW 

#30C 67 ` MOV H,A 

#50C 

#30) AF XRA A ; CLEAR A 

#30E ЕЗ XTHL 

%5ОҒ 86 ADD M ;ENTRY NUMBER IN ACCU 
#310 23 INX H 

#311 E3 XTHL 

#312 GF MOV L.A ; COMPLETE ENTRYPOINT ADDRESS 
#313 FE 1E CPI HIE ;SEE IF ENTRY NUMBER 
#315 DA ра Có JC 4C6DA 315 EQUAL ОК BETWEEN 
#318 FE 2A CPI 424 ЗЕ AND #27 

#31A D2 D4 Có JNC ЖАМ 

#31A 

#31D ЗА FF 02 LDA #2FF 3¥1:=(#2FF)-Y1 

#320 90 SUB B 

#321 47 MOV ВА 

#322 ЗА FF 02 LDA #2FF 3 Y2:- GI2FF) -Y2 

#325 91 SUB C 

#326 4Е MOV C,A 

#326 


#327 C3 04 C6 JMP ЖСЫМ 


#500 El ҒЗ 22 43 00 FS 
#310 23 ЕЗ БЕ FE 1E 
#520 90 47 ЗА ЕЕ 02 


ЗЕ 80 El 22 41 00 67 AF E 

DA 04 Có ЕЕ 2A 02 D4 Се ЗА ЕЕ 02 
91 ЯҒ СЗ 04 Са 00 00 00 00 O 

De slimmerik die het tot nu toe heeft kunnen volgen, zal 
opmerken dat bij de DOT en SCRN functies er maar 1 у- 
waarde door de BASIC meegegeven wordt. En er wordt toch 
altijd TWEE таа! een aftrekking gedaan in het тр. 


Hoe zit dat ? Tja, dat weet ik zelf ook niet, maar het 
schi jnt voor de BASIC niet uit te maken. 


Nadat men het mlp ingetikt heeft, moet men wel de BASIC 
pointers aanpassen. (UT S29B ЕС-30 02-3 ) 

Daarna terug naar BASIC en geef een NEW of clear 256. 
Men kan het machinetaalprogamma inschakelen door : 


POKE #6С,0: РОКЕ #4D,3. Men kan het machinetaal programma 


weer uitschakelen door : POKE #6C,#FD:POKE #4D,#C4. De 
vooraf bepaalde y-waarde wordt weggepoked in locatie #2FF. 
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Voor de volledigheid под de УМАХ-еп van de Apple in de 


verschillende grafische modes : Apple 
GR = 39 
HGR = 179 


Tot besluit: Als men de werking doorziet kan men een hoop 
leuke effecten realiseren met kleine uitbreidingen, bij- 
voorbeeld tekeningen verschuiven, spiegelen etc. 

Men kan ook eenzelfde programma schrijven voor het 
CURSOR-statement. 


Met vriendeli jke groeten, 
Frans Verstegen. 


EE 


New extensions for your DAI : 


— I cac sa 


If you have troubles with your old keyboard, the kit offered 

By MIKROSHOP NIEUWRODE could be anideal solution: the new 
keyboard of rev.7 (separate keys) + рс board + all interfacing 
components. 

You can build it inside the housing or use it externally(with 

a suiting housing). The price of the kit is 4200 Bfr, you can have 
it fixed for you for 6000 Bfr. 

Members in Germany can order the kit from LACKNER GmbH in Nurmberg 


TIP 


You can prevent your printer from wasting paper with CHR$ (12) 
by sending : СНЕ# (27); СНЕЎ (68); СНЕВ (12). (for EPSON printers) 


ATTENTION 





A lot of mail seems to be lost in the region of Rotterdam, so if 
you did send something to F.Druijff before August, please contact 
him on nr :Neth 010/254275 


DIDAISOFT 


Next meeting of DIDAISOFT is on 4 december in Haasrode. 
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program identification 


SUBROUTINE CASSETTE-BESTURING (audio + DCR) 


I.Broekman 
contro of cassette - software routines 


could be very useful for a data-base 





1 REM ZULLLLLLLLLAALLLLAAAALLLLLLLLLLLALLLLLLLLALALATD 
2 REM 777 DIDACOM ZZ 
š REM ZZZ = LLL 
4 REM 7727 SUBROUTINE CASSETTEBESTURING 777 
5 ВЕМ 777 (с) іші 1982 “LL 
& REM 777 inno broekman avenbeek 98 KAT 
7 REM XXX 2182 rz hillegom tel. 02520-18032 277 
8 REM "LL 
9 КЕМ ` 

10 REM Deze subroutine cassettebesturing is in deze 

11 REM vorm geschikt voor gezamenlijk gebruik van: 

12 REM = een of twee mdcr's; 

13 REM = en/of een of twee cassetterecorders. 

14 REM 


15 REM Bij mdcr-gebruik komt het einde van de tape 
16 REM altijd onverwacht. 


17 REM 

18 REM Degenen die BASICversie 1.0 hebben kunnen 

19 REM van de “оп err% ... goto'-routine plezier 

20 REM hebben, aangezien hun files niet langer 

21 REM onvindbaar hoeven te blijven, maar alsnog 

22 REM op een andere tape kunnen worden geschreven. 
25 КЕМ 

24 REM Met opzet zijn de onderste vier regels van het 
25 REM scherm in gebruik, zodat ook bij A-modes 

26 REM gemakkeli jk weggeschreven kan worden. 

27 REM 

28 REM 

29 REM De regelnummering еп het gebruik van de 

30 REM variabelennamen is gestandaardiseerd volgens de 
51 REM normen welke de vereniging DIDACOM aanlegt aan 
32 REM programmatuur voor het onderwi js. 

33 REM 

34 REM Als и deze regelnummering en het variabelen- 
35 REM gebruik aanhoudt, dan zijn op eenvoudige wi jze 
за REM de andere subroutines uit de DIDACOM-collectie 
37 REM in te passen (bijv. data statement generator). 
38 REM 

39 REM 

40 REM U treft twee bijna identieke subroutines aan 
41 REM voor laden en voor wegschri jven. 

42 REM 

50 REM Voor onderwi jsprogrammatuur en routines die 

51 REM de gebruikersvriendel jkheid van software kunnen 
52 REM bevorderen, houdt де vereniging DIDACOM zich 
55 REM graag aanbevolen. 

54 REM 
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59 REM Wilt и meer lezen over de standaardisatie van 

56 REM basic-software voor diverse merken, neemt и dan 

57 REM де DATABUS van februari 1982 pagina 43 en verder, 

58 REM of het Hobbyskoopboek BASICODE met hetzelfde artikel. 
59 REM 


60 REM Veel programmeerplezier 
61 КЕМ 

62 REM inno broekman 

65 КЕМ 


string to call tape operating system 
string containing filename 

counter for walking cursor 

counter for t.o.s.-device select 

O then correct continuing of mainprogram 
0 then restart of t.o.s.-procedures 

getc for motorstarts 


90 REM xmcm$ 
91 REM xfn$ 
93 REM х7 

94 REM xcnZ 
95 REM хегги 
96 REM xerrZ 
97 REM хаст. 
98 КЕМ 

100 REM demo 91 дасот arraysaver /loader 

110 CLEAR 5000 

120 DIM XMCM$(10.0), XFN$ (10. 0) 

130 DIM TEKST$(10.0),FILES$ (10. 0) 

200 PRINT CHR$(12) 

210 INPUT "Welke tekst ";TEKST$ 

220 PRINT :INPUT "Welke filenaam ";FILE$ 

300 XMCM$=TEKSTS 

310 XFN$=FILE$ 

400 GOSUB 31019:REM naar sprongladder 

500 PRINT CHR$(12):XFN$-"": XMCMS="" 

510 INPUT "Wil je deze tekst weer laden < J/N 2";J$ 
520 PRINT :IF LEFT$ (IS, 1) CÓCHR$ (#4A) THEN END 

530 INPUT "Welke filenaam ";FILE$:PRINT 

540 XFNS=FILES 

550 STOP:GOSUB 31020:REM naar sprongladder 

560 PRINT XFN$;" : is geladen." 


l s H Hn H H dg 


570 PRINT 

600 END 

20200 REM 447 didacom 314 
20201 REM ¥¥¥ cassette / dcr besturing x3X 
20202 REM XXX array saver daibasic v1.0 xxt 
20203 REM %%% ook voor A-modes 11% 
20204 REM %%% regelnummering volgens 01 басот 33% 


20205 КЕМ %%% programming standards and practices 344 

20206 COLORT О 8 0 8:XZ-0O:IF XSIGN-1 THEN XBEW$="SAVE IN " 

20207 IF XSIGN-2 THEN XBEW$="LOAD FROM ":PRINT CHR$(12):CURSOR 0, 
S:PRINT "SELECT RECORDER" 

20208 CURSOR 43,3:PRINT XBEW$; "DCR 0"; :CURSOR 43,2:PRINT XBEW$;"D 
CR 1";:CURSOR 43,1:PRINT XBEW$; "CAS 1";:CURSOR 43,0:PRINT XBEW$;" 
CAS 2"; 

20209 РОКЕ #74,3:POKE #75,#20:FOR ХХ=5 TO 0 STEP -1 

20210 CURSOR 40,X%:PRINT CHR$(1)3:FOR XZX-1 TO 200: IF GETC<>0 GOT 
O 20211:NEXT XZZ:CURSÜR 40,XX:PRINT CHR$(32) ;: МЕХТ XZ:GOTO 20208 

20211 IF XBEW$="LOAD FROM " THEN GOTO 20262 

20212 XCN4-24.0-XZ:0N XCNX-20 GOTO 20213, 20220, 20227, 20235 

20213 PRINT CHR$(12):CURSOR 1,2:PRINT CHR$(1); ХЕМФ; CHR$(1);" IS B 
EING SAVED IN DCR 0." 

20214 CURSOR 1,1:PRINT " TYPE SPACE": ХМСМА-БЕ 
ТС: ТЕ XMCMZ=0 THEN GOTO 20214 

20215 CALLM #FO00:REM DCRO:REW1:SKIP 

20216 SAVEA XMCM$ XFN$:GOSUB 20217: RETURN 

20217 CALLM #F000, XERRZ 

20218 ON XERRX GOTO 20208, 20208, 20208 

20219 RETURN 

20220 PRINT CHR$(12):CURSOR 1,2:PRINT CHR$(1)3XFN&;CHRS(1);" IS B 


EING SAVED IN DCR 1." 
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20221 CALLM #F000:REM DCR1:REW1:SKIP 

20222 SAVER XMCM$ XFN$:GOSUB 20217:RETURN 

20226 PRINT CHR$(12):CURSOR 1,2:PRINT CHR#(1)3XFNS;CHRS(1)3" IS B 
EING SAVED IN CAS 1." 

20227 CURSOR 1,1:PRINT "SET RECORD, START TAPE, TYPE SPACE": XMCMZ=G 
ETC: IF XMCMZ-O THEN GOTO 20227 

20229 CALLM #Е000: КЕМ CAS1 

20230 SAVEA XMCM$ XFN$:GOSUB 20217:RETURN 

20234 PRINT CHR$(12):CURSOR 1,2:PRINT CHR$(1):XFNS$;CHR$(1);" IS B 
EING SAVED IN CAS 2." 

20235 CURSOR 1,1:PRINT "SET RECORD, START TAPE, TYPE SPACE": XMCMZ=6 
ETC: IF XMCMZ-O THEN GOTO 20235 | 

20237 CALLM #FOOO: REM CAS2 

20238 SAVEA ХМСМФ (ENG: 6050В 20217: RETURN 


20250 REM 44% didacom ¥¥¥ 
20251 REM %%% cassette/dcr besturing txt 
20252 REM ¥¥¥ array loader daibasic v1.0 АА 
20253 REM $í ook voor A-modes а 
20254 REM 445% regelnummering volgens didacom ixi 


20255 REM %%% programming standards and practices 44% 

20262 XCNZ=24.0-XZ:0N ХСМХ-20 БОТО 20263, 20270, 202746, 20283 

20263 PRINT CHR$(12):CURSOR 1,2:PRINT CHRS(1)3XFNS;CHRS(1)3;" LOAD 
ING FROM DCR 0." 

20264 CURSOR 1,1:PRINT " TYPE SPACE" : XMCMZ=GE 
ТС:ІҒ XMCMZ=0 THEN GOTO 20264 

20265 CALLM #FOOO: REM DCRO:REW 

20266 LOADA XMCM$ XFN$:GOSUB 20287:RETURN 

20257 CALLM #Е000, XERRZ 

20268 XSIGN=2.0:0N XERRZ GOTO 20207, 20207, 20207 

20269 RETURN 

20270 PRINT CHR$(12):CURSOR 1,2:PRINT CHRS(1)3;XFNS;CHR$(1)3" LOAD 
ING ЕКОМ DCR 1." 

20271 CALLM #FOOO: REM DCRI:REW 

20272 LOADA ХМСМФ XFN$:605UB 20267: RETURN 

20275 PRINT CHR$(12):CURSOR 1,2:PRINT CHR$(1); XFN$; СНЕФ (1); " LOAD 
ING FROM CAS 1." 

20277 CURSOR 1,1:PRINT " START TAPE, TYPE SPACE": XMCMZ-G 
ETC: IF XMCMZ-O THEN GOTO 20277 

20278 CALLM #Ғ000: REM CAS1 

20279 LOADA XMCM$ XFN$:GOSUB 202647: RETURN 

20283 PRINT CHR$(12):CURSOR 1,2:PRINT СНЕФ (1) :XFNS;CHR$(1):" LOAD 
ING FROM CAS 2." 

20284 CURSOR 1,1:PRINT " START TAPE, TYPE SPACE": XMCMZ=G 
ETC: IF XMCMX-O THEN GOTO 20284 

20285 CALLM #F000:REM CAS? 

20285 LOADA XMCM$ XFNS:GOSUB 20267: RETURN 

51000 REM %%% DIDACOM SPRONGLADDER 44% 

31019 XSIGN=1.0:GOTO 20206:REM cas/dcr array saver 

51020 XSIGN=2.0:60T0 20204: КЕМ cas/dcr array loader 


| س 
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audio DCR 
Games Collection 1 . 400 ' 550 
2 400 550 
3 400 550 
4 800 950 
5 400 550 
6 750 900 
E 750 900 
8 750 900 
9 750 900 
Assembly Package 1750 1900 
FAST GRAF TEXT 1000 1150 
FGT Applications 1000 1150 
Toolkit 1 1000 1150 
Toolkit 2 1000 1150 
Toolkit 3 1000 1150 
Primary Education 1 1000 1150 
Secundary Education 1 1000 1150 
Secundary Education 2 1000 1150 
Uordprocessor I 1000 1150 
Mailing List 1000 1150 
Graphic Tablet 1000 1150 
Music Collection 1 300 450 
Music Collection 2 300 450 
Music Collection 3 300 450 
VIDITEL 750 900 
TINY PASCAL 1000 1150 
English German Trainer 1000 1150 | 
DAI DEMO + BASIC TUTOR 500 650 ` 
SARGON CHESS 1500 1650 
SPACE INVADERS I 800 950 
TAPE 80-81 850 1000 
Newsletter 10 500 650 
Newsletter 11412 650 | 800 
СЕМТТРЕОЕ 600 750 
DRIVER 600 750 
a very realistic car game in high resolution graphics 
SUPER INVADER 600 750 
The original arcade game with sound. 
DAINATEXT 2000 2450 


A professional wordprocessor with formatting,move blocks, 
change words,standard formules etc.. 

update WORDPROCESSOR I to DAINATEXT : 1000 (send original cover 
with your order + date of purchase) 


‘ment tn 


HARDWARE ITEMS 


NEW CHARACTER GENERATOR 1000 
THE BEST OF DAInamic 80-81 600 
DAIpc SCHEMATICS BB ары 


All prices include 17% VAT and mailing,prices in Belgian francs. 
Order from : DAInamic Heide 4 3177 WESTMEERBEEK 
banc account nr : KREDIETBANK WESTMEERBEEK 406-3016141-55 


p.v.b.a. A.C.S. 


Meensesteenweg 49 | 
8800 ROESELARE 
Tel. 051/21 30 89 


Beenhouwersstraat 87 
8000 BRUGGE 
050/33 08 01 


Guibernau Electronica, s.a. | 


- Sepulveda 104 ` 
BARCELONA-15 (SPAIN) 
Tel. 243-34-32 


LEGOTRONICS 


Kon. Albert | laan 97 
8800 ROESELARE 
Tel. 051/22 01 03 


MICRO SELECT 


Toutes applications micro-électroniques 
Vente de systemes et composants micro-processeur 


3, rue Delcloche 
4020 LIEGE | 
Tel. 041/41 28 10 


Publishing House J. VAN IN 
att. : L. CAMPS 


Educational Software ` 
primary - secondary schools 


Grote Markt 39 
2500 LIER 
Tel. 031/80 55 11 


, D.l.L.-ELEKTRONIKA, 

f MIJNSHERENLAAN 108, 

3081 CH ROTTERDAM 
Nederland 


TELEFOON: 010 - 854213 


© жщ, 


IDS 2000 


Rue de la Bonne Femme 11 
4030 GRIVEGNEE 
Tel. 041/41 32 20 


MEMOCOM 


Mini-digitale cassetterecorder 


: Postbus 2924 
3000 CX ROTTERDAM - Nederland 
Tel. 010-148284 


Bennenbergweg 1 
3221 NIEUWRODE (bij AARSCHOT) 
Tel. 016/56 87 70 


: DAI - Epson Printers - Memocom digitale cassette 


recorder - Barco kleurenmonitor - Software - 
Microlectuur - Service 


TEVETRONIC 


Avenue Milcamps 57 
1040 BRUSSEL 
Tel. 02/736 61 24 





